Pascal, цикл для, составить программу.

2) Составить программу, запрашивающую пароль пользователя. В случае правильности пароля выводится фраза: "Можно приступать к работе". Если пароль 3 раза введен неверно, то вывести "Вызываю охрану"

Question

Информатика

Павлинка

5 ноября, 05:13

Pascal, цикл для, составить программу.

2) Составить программу, запрашивающую пароль пользователя. В случае правильности пароля выводится фраза: "Можно приступать к работе". Если пароль 3 раза введен неверно, то вывести "Вызываю охрану"

+3

Ответы (1)

Знаете ответ на вопрос?

Христюха · Answer 1

Var pass, s:string; k:integer;

begin

pass:='12345';

k:=0;

repeat

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

readln (s) ;

k:=k+1;

until (s=pass) or (k=3) ;

if s=pass

then writeln ('Можно приступать к работе')

else writeln ('Вызываю охрану') ;

end.

Пример:

Введите пароль:

1

Введите пароль:

12345

Можно приступать к работе