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

Question

Информатика

Армений

4 августа, 09:50

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

+1

Ответы (1)

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

Федосия · Answer 1

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

var a:integer;

begin

readln (a) ;

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

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

end.