Umiestnenie súboru www.TrSek.com/cover/durica/hadaj_cislo2.pas{ HADAJ_CISLO2.PAS Copyright (c) Durica }
{ }
{ Hra v ktorej hádate náhodne vygenerované èíslo prièom vám program }
{ vždy povie èi vami zadané èíslo je väèšie alebo menšie. Hra konèí }
{ uhádnutím èísla + program napíše na ko¾ký pokus ste èíso uhádli. }
{ }
{ Author: Mato Durica }
{ Date : 16.03.2009 http://www.trsek.com }
uses crt;
var a,b,c,m :byte;
procedure hadaj;
begin
clrscr;
randomize;
b:=random(100)+1;
writeln('hadaj cislo od 1 do 100');
while a<>b do
begin
readln(a);
inc(c);
if a=b then writeln('gratulujem uhadol(a) si na ',c,'. pokus')
else begin
if a>b then writeln('skus mensie')
else writeln('skus vacsie');
end;
end;