Дано 2-ное число выясните является ли оно четным и оканчивается июли она на 6

Question

Информатика

Варюня

19 февраля, 16:13

Дано 2-ное число выясните является ли оно четным и оканчивается июли она на 6

+2

Ответы (1)

Знаете ответ?

Сюша · Answer 1

Если я правильно понял, то ответ вот:

var a:integer;

begin

readln (a) ;

if (a mod 2 = 0) and (a mod 10 = 6) then

writeln (a,' чётное и оканчивается на 6') ;

end.