Укажите количество целых чисел в диапазоне от 20o до 300 (включительно), таких, что остаток от деления суммы четных цифр числа на 8 равен 6.

rhejjsxn rhejjsxn    3   15.02.2020 11:54    9

Ответы
pinkiepieanddash pinkiepieanddash  11.10.2020 05:10

Program zad;

var  

   n: longint;

   sum: integer;

begin

   readln(n);    

   sum := 0;

   while n > 0 do begin

       if n mod 10 mod 2 = 0 then

           sum := sum + n mod 10;

       n := n div 10;

   end;    

   writeln(sum);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика