НиколайКот

24.07.2022 06:32 •  Информатика

Перевести программу с pascal на c++

function sumdigits(n: integer): integer;
begin
  result: =0;
  while n> 0 do begin
      result+=n mod 10;
      n: =n div 10
      end
end;

begin
  var s: =readarrinteger('вводите: ',3).select(x-> sumdigits(;
  var i: =s.indexmax;
  var k: =s.where(x-> x=;
  case k of
      1: begin
          write('сумма цифр наибольшая у ');
          case i of
              0: write('первого');
              1: write('второго');
              2: write('третьего');
              end;
          writeln(' числа')
          end;
      2: begin
          write('сумма цифр наибольшая у ');
          if s[0]=s[1] then writeln('первого и второго чисел')
          else
              if s[0]=s[2] then writeln('первого и третьего чисел')
              else writeln('второго и третьего чисел')
          end;
      3: writeln('суммы цифр у всех трех чисел равны')
      end
end.