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

Question

Информатика

Любава

23 января, 06:26

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

+4

Ответы (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.