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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Гость

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.

Accepted Answer

if a mod 5 =0 then writeln ('число делится на 5') if a mod 7 =0 then writeln ('число делится на 7') а - число, писал только тело программы