return 1;
} (s == "error # 1") {("Відсутня значення!"); 1;
} = s;
// ----------------- коеффициент генерації = reads (Form2-> Memo1-> Lines-> Strings [2]);
(s == "error # 2") {
ShowMessage ("Відсутні операторні дужки!");
return 1;
} (s == "error # 1") {("Відсутня значення!"); 1;
} (int i = 1; i <= s.Length (); i + +) (s [i] <0 "| | s [i]> '9 ') {( "Неправильний формат!"); 1;
} (s.Length ()> 9) {("Неприпустимо велике число");
return 2;
}
if (StrToInt (s) <0) {
ShowMessage ("Неприпустимо мале число");
return 3;
} = StrToInt (s);
// ------------------ підказка про пароль = reads (Form2-> Memo1-> Lines-> Strings [3] );
(s == "error # 2") {
ShowMessage ("Відсутні операторні дужки!");
return 1;
} (s == "error # 1") {("Відс утствует значення! "); 1;
} = s; 0;
}
{s;
// ------------------ кількість варіантів = reads (Form2-> Memo1-> Lines-> Strings [0]) ; (s == "error # 2") {
ShowMessage ("Відсутні операторні дужки!");
return 1;
} (s == "error # 1") {("Відсутня значення!"); 1;
} (int i = 1; i <= s.Length (); i + +) (s [i] <0 "| | s [i]> '9 ') {( "Неправильний формат!"); 1;
} (s.Length ()> 9) {("Неприпустимо велике число");
return 2;
}
if (StrToInt (s) <0) {
ShowMessage ("Неприпустимо мале число");
return 3;
} = StrToInt (s);
// ------------------ пароль адміна = reads (Form2-> Memo1-> Lines-> Strings [1]) ; (s == "error # 2") {
ShowMessage ("Відсутні операторні дужки!");
return 1;
} (s == "error # 1") {("Відсутня значення!"); 1;
} = s;
// ----------------- коеффициент генерації = reads (Form2-> Memo1-> Lines-> Strings [2]); (s == "error # 2") {
ShowMessage ("Відсутні операторні дужки!");
return 1;
} (s == "error # 1") {("Відсутня значення!"); 1;
} (int i = 1; i <= s.Length (); i + +) (s [i] <0 "| | s [i]> '9 ') {( "Неправильний формат!"); 1;
} (s.Length ()> 9) {("Неприпустимо велике число");
