Для делимости числа на 5 необходимо, чтобы последняя цифра числа была 0 или 5. Написать процедуру проверки делимости числа n, вводимого с клавиатуры, на 5. ( Паскаль )

Question

Для делимости числа на 5 необходимо, чтобы последняя цифра числа была 0 или 5. Написать процедуру проверки делимости числа n, вводимого с клавиатуры, на 5. ( Паскаль )

Гость

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

Accepted Answer

var n:integer; procedure delim(n:integer); begin if(n mod 5=0) then writeln('Делится') else writeln('Не делится'); end; begin writeln('Введите число'); readln(n); delim(n); end.