Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! function sumdigs(n: integer): integer; begin n: =abs(n); // от отрицательных чисел result: =n mod 10; while n> 0 do begin n: =n div 10; result+=n mod 10 end end; begin var a: =readarrinteger(3); writeln(a[a.select(t-> sumdigs(.indexmin]) end. пример 1843 9012 8562 9012 замечание: число цифр в числе может быть от 1 до 9. отрицательные числа тоже допустимы.
Feyruz90
20.02.2021
Program z; var x: array[1..3] of integer; s,min,i_min,i: integer; begin min: =37; {начальное значение минимальной суммы выбрать больше самого большого из 4х-значных чисел 9999, т.е. 9+9+9+9=36} for i: =1 to 3 do begin readln(x[i]); {ввести очередное число} s: =x[1] mod 10 + x[i] div 10 mod 10 + x[i] div 100 mod 10 + x[i] div 1000; {считаем сумму цифр} if s< min then begin i_min: =i; min: =s; end; {если сумма меньше текущего значения минимума, то считать эту сумму минимальной и запомнить в i_min номер текущего числа} end; writeln(x[i_min]); {вывести число с номером i_min как число с минимальной суммой его цифр} end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Двоичный 32 – битовый интернет – адрес компьютера 01011111.10000010.00000001.01001101 представить в десятичной форме. )