Известны

следующие признаки делимости числа 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.