Вывести квадраты и кубы 10 чисел следующей последовательности: 1 2 4 7 11 16 pascal abc

VZ1 VZ1    2   15.07.2019 04:10    18

Ответы
Augustine1234ma Augustine1234ma  07.09.2020 11:57
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика