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.