Question

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

Answer 1

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;