Дано число. Определить делиться ли оно на 9

Question

Дано число. Определить делиться ли оно на 9

Comments

если сумма цифр числа делится на 9, то и все число делится на 9

Answer 1

Program hgfhj;

var
  x: integer;

begin
  write('Введите число: ');
  readln(x);
  if x mod 9 = 0
    then writeln('Число ', x, ' делится на 9')
  else writeln('Число ', x, ' не делится на 9');
 
end.

---