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

Question

Информатика

Боря

16 февраля, 07:51

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

+5

Ответы (2)

Знаете ответ на вопрос?

Дуся · Answer 1

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.

Харламп · Answer 2

if a mod 5 = 0

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

if a mod 7 = 0

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

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