Var i,j,n,s: integer; begin readln(n); for i: =1 to n do begin s: =0; for j: =1 to i do s: =s+2*j-1; writeln(i,'*',i,'=',s); end; readln; end. составьте блок схему на эту . паскаль

ulyanahoroshina    2   27.06.2019 02:20    0