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

Question

Костюра

20 апреля, 19:33

+2

Ответы (1)

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

Казимира · Answer 1

Var a: integer;

begin

for var i:=100 to 500 do

if (i div 100 + (i div 10) mod 10 + i mod 10=15) then

write (i,' ');

end.