25 lines
565 B
ObjectPascal
25 lines
565 B
ObjectPascal
program ranodmizer;
|
|
Uses crt;
|
|
var y,x,i:integer;
|
|
const N=5;
|
|
begin
|
|
i:=1; //ïîïûòêè
|
|
y:= random (10); //÷èñëî, êîòîðîå óãàäûâàåøü
|
|
//writeln (y);
|
|
WriteLn('Óãàäàé ÷èñëî');
|
|
ReadLn(x); //óãàäûâàåøü
|
|
While ((x<>y)and(i<N+1)) do //åñëè íåâåðíî
|
|
begin
|
|
{
|
|
if x>y then writeln ('Áîëüøå');
|
|
if x<y then writeln ('Ìåíüøå');
|
|
}
|
|
writeLn('Íåâåðíî, ïîïðîáóé åùå ðàç');
|
|
ReadLn(x);
|
|
inc(i); //åñëè åùå ðàç íåâåðíî,while âåðíåò ê begin
|
|
end;
|
|
if(x=y)then writeLn ('Ìîëîäåö');
|
|
if not (x=y) then writeln ('Òû ïðîèãðàë');
|
|
readkey;
|
|
end.
|
|
|