Ответы на вопрос:
Впоследовательности ошибка, там не 18, а 17. // pascalabc.net 3.2, сборка 1363 от 17.12.2016 // внимание! если программа не работает, обновите версию! begin var a,b,c,d: integer; (a,b,c): =(1,1,1); print(a,b,c); for var i: =1 to 20 do begin d: =a+b+c; print(d); (a,b,c): =(b,c,d) end; writeln end. результат 1 1 1 3 5 9 17 31 57 105 193 355 653 1201 2209 4063 7473 13745 25281 46499 85525 157305 289329
Популярно: Информатика
-
Draymon26.07.2022 16:39
-
SashaV200309.06.2020 13:49
-
aisipat05519.07.2021 13:41
-
машуля12511.05.2022 03:54
-
Далв201724.03.2020 20:19
-
Abbabon20.03.2020 02:16
-
Dariu11120.11.2020 08:14
-
Памагиш25.02.2022 05:31
-
gagag59012.03.2020 14:58
-
silverking29.04.2022 09:31