Составить программу для определения количества натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15

Question

Информатика

Нета

22 апреля, 07:46

Составить программу для определения количества натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15

+1

Ответы (1)

Знаете ответ на вопрос?

Артеша · Answer 1

Var a, b, c, d, e:integer;

begin

for a:=100 to 500 do begin

b:=a mod 2; c:=a div 10 mod 10; d:=a div 100;

e:=b+c;

if e=15 then writeln (a) ;

end;

end.