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

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

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

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

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

15   голосов , оценка 4.133 из 5

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

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

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы