Question

Ввести а и б и вывести квадраты и кубы чисел от а до б

Пример:

Введите границы интервала: 4 6

4: 16 64
5: 25 125
6: 36 216

Answer 1

var
a, b: integer;
begin
write('граница а? ');
readln(a);
write('граница б? ');
readln(b);
for var i:=a to b do
writeln(i, ': ', sqr (i), ' ', i*i*i);
end.