Вывести квадраты и кубы 10 чисел следующей последовательности: 1 2 4 7 11 16 Pascal ABC
Вывести квадраты и кубы 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.
Не нашли ответ?
Похожие вопросы