Известны следующие признаки делимости числа n. для делимости на 5 необходимо, чтобы последняя цифра числа была 0 или 5. описать процедуру проверки признаков делимости. проверить их для различных значений n. предмет (программирование) на pascal abc

202

349

Посмотреть ответы 2

Ответы на вопрос:

instajoha1p0917j

Информатика

4,5(57 оценок)

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.