Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.