Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Вывести квадраты и кубы 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.