Найдите количество двузначных чисел, которые делятся на сумму своих цифр

1

Ответы и объяснения

  • ali07
  • главный мозг
2011-12-01T13:41:18+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

program xxx;

   var i, k, d, e, s : integer;

begin

  k:=0;

 for i:= 10 to 99 do

   begin

      d:= i div 10;

      e:= i mod 10;

      s:=d + e;

      if i mod s = 0 then k:=k+1

   end;

   write ('кол-во чисел которые делятся на сумму своих цифр=', k);

   readln

end.