Найти трёхзначные числа, делящиеся нацело на сумму своих цифр - 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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы