Var k,s : integer; begin s: =0 k: =0 while k < 30 do begin k: =k+3; s: =s+k; end; write(s); end.

AndreySolmikov    2   28.05.2019 11:10    4