Ответы на вопрос:
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('сумма цифр не кратна семи') end end. тестовое решение: введите трехзначное число: 473 сумма цифр кратна семи
Популярно: Информатика
-
dinaumralieva31.03.2020 14:18
-
rhenfzj28.04.2021 04:29
-
anutik786620.12.2021 15:40
-
aosch2k209.09.2021 14:04
-
daschkavolf10.04.2021 06:47
-
Sanya05529.11.2021 23:28
-
fhdsjkfalhd23.04.2023 10:30
-
autosteklo77701.07.2022 21:04
-
FarLime21.07.2022 07:22
-
nataxasan198424.05.2022 00:01