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.
1209/7 е ли нужно сократить то 172 целых 5/7
Ну вот алгоритм в приклеенной картинке
<span />
Списками такой ответ у меня
Никакие вроде иорвпквироиафрпфрфв