Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

N - натуральное трехзначное число. Верно ли, что хотя бы цифра этого числа четная? Нужно написать код на Паскале!

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

var
n,a,b,c:integer;
begin
write(Введите N:=);
readln(n);
if (n< 1000) and (n> 99) then begin
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 write(Верно) else
write(Не верно);
end;
end.