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

Question

Информатика

Андрюха

19 января, 14:12

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

+5

Ответы (1)

Знаете ответ?

Федотий · Answer 1

Var

A, i:integer;

N:real;

Begin

WriteLn ('Введите число') ;

ReadLn (N) ;

For A: = 100 to 999 do

if (A div 100) + ((A div 10) mod 10) + (A mod 10) <=N then

Write (A,' ')

End.