Информатика, опубликовано 2018-08-22 21:20:03 by Гость
Вывести 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на