Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- //while20
- var
- a, n:integer;
- b: boolean; // Содержится ли цифра 2?
- // b = true - да, b = false - нет
- begin
- read(n);
- b := false;
- while (n > 0) and (not b) do
- begin
- a := n mod 10;
- if a = 2 then
- b := true;
- n := n div 10;
- end;
- write(b);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement