Reorganize

2026-03-02 19:15:17 +02:00
parent 9192716bfb
commit f235a35ebb
610 changed files with 1 additions and 0 deletions
@@ -0,0 +1,25 @@
+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.
+