Информатика, опубликовано 2018-08-22 23:34:52 by Гость
Вывести квадраты и кубы 10 чисел следующей последовательности: 1 2 4 7 11 16 Pascal ABC
Ответ оставил Гость
Var a,b:real;
begin
a:=1;
b:=0;
repeat
writeln(Квадрат числа ,a, = ,sqr(a), Куб числа ,a, = ,power(a,3));
a:=a+1+b;
b:=b+1;
until b>9
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.