Вывести a и b и вывести квадраты и кубы чисел от a до b
Вывести a и b и вывести квадраты и кубы чисел от a до b
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы