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


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

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.