Информатика, опубликовано 2018-08-22 22:13:09 by Гость

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

Ответ оставил Гость

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.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.