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

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

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

Question

Информатика

Алина

3 декабря, 00:21

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

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

б) заканчивается ли оно на 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