Nyayulkan
4 год назад
Составить программу с помощью Pascal ABC для определения количества натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15
ОТВЕТЫ
Стоил
Oct 24, 2020
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.
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.
298
Смежные вопросы: