Предмет: Информатика, автор: Настя31617

Помогите сделать..8 класс

Приложения:

Ответы

Автор ответа: ЧерныйГолубь
0
1) for x:=1 to 30 do writeln(x);
2) x:=-5
   while x<=8 do begin
      y:=abs(x);
      writeln(y);
     x:=x+1;
   end;
3) for x:=10 downto 3 do writeln(x);
4) x:=30
    while x>=1 do begin
        y:=y*y;
        writeln(y);
     x:=x-1;
   end;

Автор ответа: Настя31617
0
спасибо
Похожие вопросы
Предмет: Алгебра, автор: lerapopova00