Регистрация
cazuncko2016
13.08.2020 07:03
Информатика
Есть ответ 👍

Программа: робот. напишите ответ ,не понятно просто.

117
182
Посмотреть ответы 1

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

БолатовДосжан
БолатовДосжан
4,6(5 оценок)

var a,b,c,d: array [1..10] of integer;

i,x,y,z: integer;

begin

for i: =1 to 10 do

begin

a[i]: =0;

if (i=1) or (i=10) then b[i]: =1 else b[i]: =0;

c[i]: =i*5

end;

for i: =1 to 10 do write (a[i],' ');

writeln;

for i: =1 to 10 do write (b[i],' ');

writeln;

for i: =1 to 10 do write (c[i],' ');

writeln;

x: =0;

y: =1;

d[1]: =x;

d[2]: =y;

for i: =3 to 10 do begin

d[i]: =x+y;

z: =y;

y: =x+y;

x: =z

end;

for i: =1 to 10 do write (d[i],' ');

end.

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