Pascal ABC: Дано натуральное число. Напишите программу, которая проверяет, является ли оно трёхзначным и кратна ли 7 сумма его цифр.

Нужно проверить два условия: число трёхзначное и сумма его цифр кратна \(7\).

Программа на PascalABC:
var n, a, b, c, s: integer;
begin
  readln(n);
  if (n >= 100) and (n <= 999) then
  begin
    a := n div 100;
    b := n div 10 mod 10;
    c := n mod 10;
    s := a + b + c;
    if s mod 7 = 0 then
      writeln('YES')
    else
      writeln('NO');
  end
  else
    writeln('NO');
end.

Например, для числа \(168\): сумма цифр \(1+6+8=15\), а \(15\) не кратно \(7\), значит ответ будет NO.

0 0 Пожаловаться