Advertisement
Guest User

Untitled

a guest
Feb 18th, 2020
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 0.31 KB | None | 0 0
  1. //while20
  2. var
  3.   a, n:integer;
  4.   b: boolean; // Содержится ли цифра 2?
  5.   // b = true - да, b = false - нет
  6.  
  7. begin
  8.   read(n);
  9.   b := false;
  10.   while (n > 0) and (not b) do
  11.   begin
  12.     a := n mod 10;
  13.     if a = 2 then
  14.       b := true;
  15.     n := n div 10;
  16.   end;
  17.   write(b);
  18. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement