| リビジョン | c8d8c6a63022f67ab607ba17060867fe9e0c3d10 (tree) |
|---|---|
| 日時 | 2017-04-25 21:13:05 |
| 作者 | fuke masasi <yamat0jp@yaho...> |
| コミッター | fuke masasi |
すみません、戒能の計算を和と積で間違えていました。大間違いでした。訂正しました。
dokudango.dpr (diff) kaijou.dpr (diff)| @@ -16,6 +16,7 @@ label first, back; | ||
| 16 | 16 | begin |
| 17 | 17 | try |
| 18 | 18 | { TODO -oUser -cConsole メイン : ここにコードを記述してください } |
| 19 | + Randomize; | |
| 19 | 20 | count := 51; |
| 20 | 21 | goto first; |
| 21 | 22 | repeat |
| @@ -26,10 +27,7 @@ begin | ||
| 26 | 27 | inc(i) |
| 27 | 28 | until ((count - 1 - i) mod 5 = 0) or (i = 5); |
| 28 | 29 | if i = 5 then |
| 29 | - begin | |
| 30 | - Randomize; | |
| 31 | 30 | i := Random(4) + 1; |
| 32 | - end; | |
| 33 | 31 | Writeln(i.ToString + 'コたべました'); |
| 34 | 32 | dec(count, i); |
| 35 | 33 | if count < 1 then |
| @@ -17,7 +17,7 @@ begin | ||
| 17 | 17 | Readln(s); |
| 18 | 18 | j := 1; |
| 19 | 19 | for i := 2 to s.ToInteger do |
| 20 | - j := j + i; | |
| 20 | + j := j * i; | |
| 21 | 21 | Writeln(j.ToString); |
| 22 | 22 | Readln; |
| 23 | 23 | except |
Fork