Найти трёхзначные числа, делящиеся нацело на сумму своих цифр - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

While Вывести на экран в строку через пробел такие трёхзначные числа, у которых само число делится на сумму цифр его.

Решение задачи: «Найти трёхзначные числа, делящиеся нацело на сумму своих цифр»

textual
Листинг программы
var i: Integer;
begin
  for i:=100 to 999 do
    if i mod (i div 100+i mod 10+i div 10 mod 10)=0 then write(' ',i);
end.

Оцени полезность:

15   голосов , оценка 4.133 из 5
Похожие ответы