Ответ:
var x,y,i:integer;
begin
y:=-7;
for i:=1 to 39 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.
var x,y:integer;
begin
y:=-7;
repeat
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
until y>107
end.
var x,y:integer;
begin
y:=-7;
while y<=107 do
begin
x:=y+7;
writeln('y = ',y:3,' x = ',x);
y:=y+3
end
end.
Робот- ходит по одной клетке, может их закрашивать
Ответ:
Надо было нажать ети англ. символь на руской раскладке
Объяснение:
Сегодня на ужин у нас лосось