Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Напечатать столбиком :
a) все целые числа от 10 до 35;
b) квадраты все целых чисел от 5 до n;
c) третьи степени всех целых чисел от а до 50;
d) все целые числа от а до b.
Использовать оператор While

Ответ оставил Гость

Uses Crt;
const a=0;
      b=10;
      n=15;
var i: longint;
    Rez: longint;
begin
ClrScr;
WriteLn (Task 1:);
for i:=10 to 35 do
    Writeln(i:3);
    Delay (2000);

WriteLn (Task 2:);
for i:=5 to n do
    Writeln(i*i:5);
    Delay (2000);

WriteLn (Task 3:);
for i:=a to 50 do
   begin
    Rez:=i*i*i;
    Writeln(Rez:7);
  end;
    Delay(2000);

 WriteLn (Task 4:);
for i:=a to  b do
    Writeln(i:3);
ReadLn;
end.