Question

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

Answer 1

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.