Вот училка задала на отработку по программированию на паскаль ! решите пж :) " Дано целое число. Определить, является ли оно кратным 5 и 10 "

program qq; var a: integer; begin writeln ('Введите целое число'); readln(a); If (a mod 5 =0) and (a mod 10=0) then writeln ('Число кратно 5 и 10') else writeln ('Число не кратно 5 и 10'); end.

Поскольку 10 = 5 х 2, то число, кратное 10, одновременно кратно и 5. Турбо Паскаль 7.01 uses Crt; var   n:longint; begin   ClrScr;   Write('n='); Read(n);   if n mod 10=0 then Writeln('Число кратно 10 и 5')   else Writeln('Число не кратно 10 и 5');   ReadKey end. В то же время, возможно сам вопрос неверно поставлен, и подразумевается, что надо различать три случая: 1) число кратно только 5 2) число кратно 10, следовательно, и 5 3) число не кратно ни 5, ни 10. Но это уже проблемы автора вопроса.