program n_4; var x, a, b, c, s: integer; begin x:=723; a:=x div 100; b:=x mod 100 div 10; c:=x mod 10; s:=a+b+c ; writeln ('s=', s) end.

vikatisenko1    3   16.03.2021 18:39    46