Найти трёхзначные числа, делящиеся нацело на сумму своих цифр - 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.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д