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.