Question

Помогите срочно!
Ввести а и b и вывести квадраты и кубы чисел от a до b.
Пример:
Введите границы интервала:
4 6
4 16 64
5 25 125
6 36 216

Answer 1

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.