Question

Составить программу, которая запрашивает пароль (трехзначное число + 2 символа) до тех пор, пока он не будет правильно введен. Верный пароль должен быть задан в виде константы!

Answer 1

var

pass:='123xx';

a: string;

b: boolean;

begin

b:=true;

repeat

writeln('Введите пароль: ');

readln(a);

if a=pass then

begin

writeln('Пароль верный!');

b:=false;

end;

if a<>pass then

writeln('Пароль неверный!');

until b=false;

end.