Составить программку с поддержкою Pascal ABC для определения количества естественных чисел

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

Задать свой вопрос
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт