Паскаль5.3 Напечатать "столбиком": а) все целые числа от 20 до 35 б) квадраты всех целых чисел от a до 50 ( значение a вводится с клавиатуры;b больше =10) в) третьи степени всех целых чисел от a до 50 ( значение a вводится с ...
Паскаль
5.3 Напечатать "столбиком": а) все целые числа от 20 до 35 б) квадраты всех целых чисел от a до 50 ( значение a вводится с клавиатуры;b>=10) в) третьи степени всех целых чисел от a до 50 ( значение a вводится с клавиатуры;a<=50); г) все целые числа от a до b ( значения a и b вводятся с клавиатуры;b>=a).
Гость
Ответ(ы) на вопрос:
Гость5.3
а) var i: integer;
begin
for i:=20 to 35 do writeln (i);
end.
б)var i,a: integer;
begin
read (a);
for i:=a to 50 do writeln (i*i);
end.
в) var i,a: integer;
begin
read (a);
for i:=a to 50 do writeln (i*i*i);
end.
г) var i,b,a: integer;
begin
read (a, b);
for i:=a to b do writeln (i);
end.
Не нашли ответ?
Похожие вопросы