0 голосов
2 просмотров

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

спросил от (40 баллов) в категории Информатика

1 Ответ

0 голосов
ответил от Доцент (52.1k баллов)
 
Лучший ответ

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.

Добро пожаловать на сайт Ответы онлайн, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...