SHARE
TWEET

Untitled

a guest Feb 24th, 2020 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. var n,a,p: integer;
  2. var c: string;
  3. begin
  4.     c:= 'нет';
  5.     read(n);
  6.     p:= -1;
  7.     while n > 0 do
  8.         begin
  9.             a:= n mod 10;
  10.             n:= n div 10;
  11.             if p = a then
  12.                 c := 'да';
  13.        
  14.             p:= a;
  15.         end;
  16.     writeln(c);
  17. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top