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

Question

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

Экономика

Гость

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

Accepted Answer

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.