•   Дано тризначне число. Чи кратна сума його цифр семи? Програма на мові Паскаль

Ответы 1

  • var  m, n, n10, n100: integer;begin  write('Введите трехзначное число: ');  readln(m);  if (m > 99) and (m < 1000) then  begin    n100 := m div 100;    n10 := (m mod 100) div 10;    n := m mod 10;    if (n + n10 + n100) mod 7 = 0 then writeln('Сумма цифр кратна семи')    else writeln('Сумма цифр не кратна семи')  endend.Тестовое решение:Введите трехзначное число: 473Сумма цифр кратна семи
    • Автор:

      crespo
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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