Надо вывести квадраты и кубы последовательности 1 2 4 7 11 (паскаль)

Pingvinchikc Pingvinchikc    3   24.07.2019 14:30    2

Ответы
kolya1pokachalov kolya1pokachalov  19.08.2020 16:20
Program kub_i_kvadrat;

var a,b:integer; 

begin

b:=1;

 for a:=0 to 9 do 

 begin b:=b+a;

 writeln(b:20,b*b:20,b*b*b:20)

 end;

 end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика