65 lines
1.5 KiB
ObjectPascal
65 lines
1.5 KiB
ObjectPascal
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. |