Известны следующие признаки делимости числа N. Для делимости ** 5 необходимо, чтобы...

Question

Известны
следующие признаки делимости числа N. Для делимости на
5 необходимо, чтобы последняя цифра
числа была 0 или 5.


Описать процедуру
проверки признаков делимости. Проверить
их для различных значений N.
Предмет (Программирование)
на Pascal ABC

Answer 1

Var N, lastNum, mod5: integer;
  flag: boolean;
begin
  readln(N);
  lastNum := N mod 10;
  mod5 := N mod 5;
  flag := (lastNum = 5) or (lastNum = 0);
  if flag then
    writeln('Число ', N, ' делится на 5 по признаку делимости')
  else
    writeln('Число ', N, ' не делится на 5 по признаку делимости');
  if (mod5 = 0) then
    writeln('Число ', N, ' делится на 5 по определению')
  else
    writeln('Число ', N, ' не делится на 5 по определению');
  flag := flag xor (mod5 = 0);
  if flag then
    writeln('Результаты не совпадают, это не признак делимости!')
  else
    writeln('Результаты совпадают, это возможно признак делимости')
end.