Дано натуральное число.

а) Определить, есть ли оно четным

б) заканчивается ли оно на 7

Question

Информатика

Ангелика

12 ноября, 23:17

Дано натуральное число.

а) Определить, есть ли оно четным

б) заканчивается ли оно на 7

+1

Ответы (1)

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

Рустя · Answer 1

Uses crt;

var a:integer;

begin

readln (a) ;

if (a mod 2 = 0) then writeln ('четное') else writeln ('нечетное') ;

if (a mod 10=7) then writeln ('оканчивается на 7') else writeln ('не оканчивается на 7') ;

end.

Дано натуральное число.а) Определить, есть ли оно четнымб) заканчивается ли оно на 7

Дано натуральное число.

а) Определить, есть ли оно четным

б) заканчивается ли оно на 7