Создать программу с ограниченными попытками ввода пароля. Максимальное количество попыток: 2. Ввод пароля осуществить в виде теста с полем ввода ответа. Количество вопросов 3. На паскале или делфи.
Program Parol;const N=2;var x ,i: integer;beginfor i:=1 to N dobeginwriteln('Неверный пароль');readln(x);end;writeln('Verny parol');if i>N thenwriteln('zapret');end.
неправильно чет
Program Parol; const N=2; var x ,i: integer; begin repeat i:=i+1; readln(x); if x=1234 then writeln('Verny parol') else writeln('Неверный пароль'); until((i=2)or (x=1234)); end.
сорян , посидел подумал
но там вроде окно в виде теста надо? а так все работает
"Ввод пароля осуществить в виде теста с полем ввода ответа."