Дано целое число.Оканчивается ли оно цифрой 5?Нужна программа в паскале...

Question

Егор Самойлов Ученик (148), закрыт 11 лет назад

Answer 1

Krab Bark Искусственный Интеллект (191708) 13 лет назад

var a:longint; begin readln(a); writeln(a mod 10=5); readln end.

Answer 2

var a:integer;begin write('Chislo =');read(a);if a mod 10=5 then writeln('Da') else writeln('Net') end.

Answer 3

if (X mod 5 = 0) and (X mod 10 <> 0) then Writeln('Оканчивается цифрой 5') then Writeln('Не оканчивается цифрой 5');