Помогите решить.

В заданном натуральном трехзначном числе имеется четная цифра. Pascal

Question

Информатика

Андрей

30 апреля, 18:38

Помогите решить.

В заданном натуральном трехзначном числе имеется четная цифра. Pascal

+4

Ответы (1)

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

Славуха · Answer 1

Var

n, a, b, c:integer;

begin

readln (n) ;

//Найдём 3 цифры

a:=n div 100;

b: = (n mod 100) div 10;

c:=n mod 10;

if (a mod 2 = 0) OR (b mod 2 = 0) OR (c mod 2 = 0) then

writeln ('Есть четная цифра')

else

writeln ('Нет четной цифры') ;

end.

Помогите решить.В заданном натуральном трехзначном числе имеется четная цифра. Pascal

Помогите решить.

В заданном натуральном трехзначном числе имеется четная цифра. Pascal