Помогите срочно! Ввести а и b и вывести квадраты и кубы чисел от a до b. Пример: Введите границы интервала: 4 6 4 16 64 5 25 125 6 36 216
Помогите срочно!
Ввести а и b и вывести квадраты и кубы чисел от a до b.
Пример:
Введите границы интервала:
4 6
4 16 64
5 25 125
6 36 216
Гость
Ответ(ы) на вопрос:
ГостьPascal
var
a,b,i : integer;
begin
writeln ('Введите границы интервала (a b):');
readln (a,b);
for i := a to b do
writeln (i,' ',i*i,' ',i*i*i);
end.
Не нашли ответ?
Похожие вопросы