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

Question

Информатика

Дария

19 августа, 15:33

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

+4

Ответы (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.