Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- var
- n :integer;
- k: boolean; // Имеются ли в записи числа нечетные цифры?
- begin
- read(n);
- k := false;
- while (n > 0) and (not k) do
- begin
- if n mod 2 = 1 then
- k := true;
- n := n div 10
- end;
- writeln(k)
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement