Определите результат работы функции при входном значении, равном 123456: function qq(x: integer):integer; var i, s: integer; begin s:=0; for i:=1 to 3 do begin s := s + x mod 10; x := x div 10; end; qq := s; end;

Slava1432    3   07.05.2020 21:12    11