Вывести на экран все трехзначные натуральные числа, сумма цифр которых не превосходит заданное пользователем (введенное с клавиатуры) число.
Pascal ABC
срочно
для 8 класса функцией или процедурой

Вопрос школьника по предмету Информатика

Вывести на экран все трехзначные натуральные числа, сумма цифр которых не превосходит заданное пользователем (введенное с клавиатуры) число.
Pascal ABC
срочно
для 8 класса функцией или процедурой

Ответ учителя по предмету Информатика

var s,i:integer;

begin

write(‘s = ‘);

readln(s);

for i:=100 to 999 do

 if (i div 100 + i div 10 mod 10 + i mod 10 < s)

  then write(i,’ ‘);

end.

Пример:

s = 5
100 101 102 103 110 111 112 120 121 130 200 201 202 210 211 220 300 301 310 400