Var s, k: integer; begin s: =100 k: =8; repeat s: =s-k; k: =k-1; until k< 0; writeln(s) end.

003Nikitos003    1   12.09.2019 03:20    0