Напечатать столбиком : a) все целые числа от 10 до 35; b) квадраты все целых чисел от 5 до n; c) третьи степени всех целых чисел от а до 50; d) все целые числа от а до b.Использовать оператор While
Напечатать столбиком :
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.
Не нашли ответ?
Похожие вопросы