Регистрация
iragabets73
19.05.2023 04:46
Информатика
Есть ответ 👍

Скетчап программасынын терезе элементтерин жазыныздар
комек

106
442
Посмотреть ответы 1

Ответы на вопрос:

makarova06
makarova06
4,4(14 оценок)
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.

Популярно: Информатика