Написать программу в pascal, среди 8 положительных чисел найти такое, которое имеет наибольшую сумму цифр, используя функцию

162

365

Посмотреть ответы 2

Ответы на вопрос:

Табалаев

Информатика

4,6(41 оценок)

Var a,i,s,max,amax: integer; function sum(n: integer): integer; var s: integer; begin s: =0; while n< > 0 do begin s: =s+n mod 10; n: =n div 10; end; sum: =s; end; begin max: =0; for i: =1 to 8 do begin write('a = '); readln(a); s: =sum(a); if s> max then begin max: =s; amax: =a; end; end; writeln('в числе ',amax,' максимальная сумма цифр = ',max); end. пример: a = 405a = 120 a = 309 a = 671 a = 456 a = 215 a = 751 a =321 в числе 456 максимальная сумма цифр = 15