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

Question

Информатика

Фира

1 апреля, 03:53

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

+4

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

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