Дано число. Определить, оканчивается ли данное число на цифру 7.
Program If_10-
var a,b:integer-
Begin
writeln (‘Введите число’)-
readln (b)-
a:=b mod 10-
if (a=7) then writeln (‘Число оканчивается на — 7’) else writeln (‘Число не оканчивается 7’)-
Readln-
end.