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

Question

Информатика

Любава

16 сентября, 02:06

Вывести 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.