Угадай число! 1.0

slogger1994 Jan 31st, 2012 162 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program ugadai_chislo;
  2. var
  3. a,b,c:integer;
  4. begin
  5.         a:=random(100)
  6.         c:=0
  7.         repeat
  8.                 readln(b);
  9.                 c:=c+1;
  10.                 if a<b then writeln('Загаданное число меньше') else
  11.                 if a>b then writeln('Загаданное число больше');
  12.         until a=b;
  13. writeln('Число угадано!');
  14. writeln('Время: ',Milliseconds/1000);
  15. writeln('Попыток: ',c);
  16. 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