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

Question

Информатика

Полюня

2 июня, 10:15

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

+3

Ответы (1)

Знаете ответ на вопрос?

Геласий · Answer 1

Var a, b, i:integer;

begin

write ('Введите 2 числа а и b: ') ; read (a, b) ;

writeln ('Квадраты чисел: ') ;

for i:=a to b do

write (i*i,' ') ;

writeln ('Кубы чисел: ') ;

for i:=a to b do

write (i*i*i,' ') ;

end.