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

Question

Информатика

Славуня

14 декабря, 22:10

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

+2

Ответы (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')

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