• !!!HELP!!                              Определить количество трёхзначных чисел сумма цифр которых кратна 5. Составить программу в паскале.

Ответы 3

  • Ошибка, сейчас исправлю!
  • Вот теперь верно
    • Автор:

      byronxvqu
    • 5 лет назад
    • 0
  • // PascalABC.NET 3.0, сборка 1128begin  var k:=0;  for var i:=100 to 999 do    if (i div 100)+(i mod 10)+((i div 10) mod 10)=5 then Inc(k);  Writeln('Количество чисел равно ',k)end.Тестовое решение:Количество чисел равно 15
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years