Проверьте программу ! var s: real; a,b,c: longint; begin s: =0; a: =3; b: =1; c: =2; while (a< =30) do begin s: =s+(a/b+c^2) a: =a+3 b: =1 c: =c+1 end; writeln(s); end.

antonishyna1997    2   24.04.2019 02:20    0