Заполните таблицу,чтобы в каждой строке таблицы результат исполнения команд For и While был одним и тем же.
Answers & Comments
semgreez
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;
Answers & Comments
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;