Question

Дано число.определить является ли оно кратным 5, оканчивается ли оно цифрой 7

Answer 1

if a mod 5 =0

then writeln ('число делится на 5')

if a mod 7 =0

then writeln ('число делится на 7')

а - число, писал только тело программы

Answer 2

var x:integer;

begin

readln(x);

if x mod 5=0 then writeln('kratno 5') else writeln('ne kratno 5');

if x mod 10=7 then writeln('konchaetsya na 7') else writeln('ne konchaetsya na 7');

end.