Паскаль..заполнить массив из 20 элементов числами фибоначчи и вывести результат на экран.
210
257
Ответы на вопрос:
Var ar: array[1..20]of integer; a,b,c,i: integer; begin a : = 0; ar[1]: =a; b : = 1; ar[2]: =b; for i: =3 to 20 do begin ar[i]: =a+b; c : = b; b : = a + b; a : = c; end; for i: =1 to 20 do write(ar[i],' '); end.
Популярно: Информатика
-
diasj5kz08.07.2021 20:16
-
0667543784u76ju16.10.2020 17:20
-
tofik402.04.2022 16:22
-
nikaa552213.02.2023 06:57
-
Erikalallala23.05.2023 20:43
-
Shool17811.05.2020 18:51
-
никита342909.05.2021 14:51
-
mikiliki88926.10.2020 19:11
-
лейла2003223.12.2020 22:32
-
antipingv200410.01.2023 16:52