Вводится натуральное число n требуется найти сумму четных цифр числа 2) найти количество цифр 2 в числе 3) найти максимальную нечетную цифру в числе паскаль

300

500

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

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

hbkkb

Информатика

4,7(94 оценок)

{} var n : uint64; sum, count, max: byte; begin write ('введите натуральное число: '); readln (n); repeat if ((n mod 10) mod 2)=0 then inc (sum, n mod 10) else if (n mod 10)> max then max: =n mod 10; if (n mod 10) = 2 then inc (count); n: =n div 10; until n=0; writeln ('сумма четных цифр: ', sum); writeln ('кол-во цифр 2: ', count); if max=0 then writeln ('нет нечетных цифр') else writeln ('макс. нечетная цифра: ', max); end.