Найти все натуральные числа из промежутка от 1 до 200, У которых сумма цифр равна S - Pascal ABC
Формулировка задачи:
Вот такая задача, напишите программу пожалуйста, помогите тупому
Найти все натуральные числа из промежутка от 1 до 200, У которых сумма цифр равна S (S вводить с клавиатуры)
Решение задачи: «Найти все натуральные числа из промежутка от 1 до 200, У которых сумма цифр равна S»
textual
Листинг программы
Введите s от 1 до 19 for i:=1 to 200 do if i div 100+i div 10 mod 10+ mod 10=s then writeln(i);
Объяснение кода листинга программы
1. Введите s от 1 до 19
2. for i:=1 to 200 do
3. if i div 100+i div 10 mod 10+ mod 10=s then writeln(i)