Задание:
Найдите количество двузначных чисел, которые делятся на сумму своих цифр
Решение:
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); readlnend.
Знаете другой ответ?