
Заполните таблицу,чтобы в каждой строке таблицы результат исполнения команд For и While был одним и тем же.

1.For i:=1 to 30 do
begin
writeln(x);
end;
2.x:=-5;
while x<=8 do
begin
y:=abs(x);
writeln(y);
x:=x+1;
end;
3.for x:=10 downto 3 do
begin
writeln(x);
end;
4.x:=30;
while x>=1 do
begin
y:=x*x;
writeln(y);
x:=x-1;
end;
Оцени ответ