Найдите количество двузначных чисел,которые делятся на сумму своих цифр.
Найдите количество двузначных чисел,которые делятся на сумму своих цифр.
Гость
Ответ(ы) на вопрос:
Гость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..
Не нашли ответ?
Похожие вопросы