Составить программу с помощью Pascal ABC для определения количества натуральных чисел из интервала от 100 до 500, сумма цифр которых равна 15
114
ОТВЕТЫ
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.
256
Отв. дан
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Информатика
Gazar
Подскажите подобрать колоду для подъёма на 4000 кубков
...
2019-01-22 02:49:28
Malanara
Как на языке Паскаль умножить 2 любых числа? Напишите ...
2019-01-22 02:49:23
Kenn
На информационной ленте машины Поста расположен расположен массив из ...
2019-01-22 02:42:21
Денис
Придумай систему обладающую следующей структурой ...
2019-01-22 02:39:38