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