Advertisement
Guest User

Untitled

a guest
Feb 18th, 2020
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.27 KB | None | 0 0
  1. var
  2.   n :integer;
  3.   k: boolean; // Имеются ли в записи числа нечетные цифры?
  4.  
  5. begin
  6.  read(n);
  7.  k := false;
  8.  while (n > 0) and (not k) do
  9.  begin
  10.   if n mod 2 = 1 then
  11.     k := true;
  12.   n := n div 10
  13.  end;
  14.  writeln(k)
  15. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement