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,65 @@
+uses crt;
+var w,a,s,d,q,e,r,t:integer;
+n:byte;
+label l1;
+begin
+ l1:
+ WriteLn('Ââåäèòå êîä');
+ ReadLn(w);
+ if w <> 536985 then WriteLn('Íåâåðíî');
+ if w <> 536985 then goto l1;
+ WriteLn('Óãàäàéòå ïåðâûé ñèìâîë (áóêâó) ïàðîëÿ');
+ WriteLn('Èñïîëüçóéòå íîìåð áóêâû àíãëèéñêîãî àëôàâèòà');
+ WriteLn('Íàïðèìåð ÷òîáû ââåñòè A ââåäèòå 1');
+ ReadLn(n);
+ Case n of 
+ 1..5,7..26:WriteLn(' íåâåðíî');
+ 6: WriteLn('âåðíî');
+ end;
+ WriteLn('Óãàäàéòå 2 ñèìâîë (öèôðó) ïàðîëÿ');
+ ReadLn(w);
+  Case w of 
+ 2..9:WriteLn(' íåâåðíî');
+ 1: WriteLn('âåðíî');
+ end;
+ WriteLn('Óãàäàéòå òðåòèé ñèìâîë (áóêâó) ïàðîëÿ');
+ WriteLn('Èñïîëüçóéòå íîìåð áóêâû àíãëèéñêîãî àëôàâèòà');
+ ReadLn(a);
+ Case a of 
+ 1..5,7..26:WriteLn(' íåâåðíî');
+ 6: WriteLn('âåðíî');
+ end;
+  WriteLn('Óãàäàéòå 4 ñèìâîë (öèôðó) ïàðîëÿ');
+ ReadLn(s);
+  Case s of 
+ 2..9:WriteLn(' íåâåðíî');
+ 1: WriteLn('âåðíî');
+ end;
+  WriteLn('Óãàäàéòå ïÿòûé ñèìâîë (áóêâó) ïàðîëÿ');
+ WriteLn('Èñïîëüçóéòå íîìåð áóêâû àíãëèéñêîãî àëôàâèòà');
+ ReadLn(r);
+ Case r of 
+ 1..5,7..26:WriteLn(' íåâåðíî');
+ 6: WriteLn('âåðíî');
+ end;
+  WriteLn('Óãàäàéòå 6 ñèìâîë (öèôðó) ïàðîëÿ');
+ ReadLn(t);
+  Case t of 
+ 1,3..9:WriteLn(' íåâåðíî');
+ 2: WriteLn('âåðíî');
+ end;
+   WriteLn('Óãàäàéòå ïÿòûé ñèìâîë (áóêâó) ïàðîëÿ');
+ WriteLn('Èñïîëüçóéòå íîìåð áóêâû àíãëèéñêîãî àëôàâèòà');
+ ReadLn(e);
+ Case e of 
+ 1..5,7..26:WriteLn(' íåâåðíî');
+ 6: WriteLn('âåðíî');
+ end;
+  WriteLn('Óãàäàéòå 6 ñèìâîë (öèôðó) ïàðîëÿ');
+ ReadLn(q);
+  Case q of 
+ 1,3..9:WriteLn(' íåâåðíî');
+ 2: WriteLn('âåðíî');
+ end;
+ Readkey;
+end.