|
Вопрос # 4 140/ вопрос открыт / |
|
Здравствуйте, уважаемые эксперты!
Помогите пожалуйста решить задачу. Составить программу, запрашивающую пароль пользователя. В случае правильности пароля выводится фраза: “ Можно приступать к работе». если пароль 3 раза введен неверно, то вывести «Вызываю охрану» необходимо сделать через цикл.
 |
Вопрос задал: serega7235 (статус: Посетитель)
Вопрос отправлен: 11 мая 2010, 14:57
Состояние вопроса: открыт, ответов: 1.
|
Ответ #1. Отвечает эксперт: Кириченко Сергей
Здравствуйте, serega7235!
В приложении рабочий код программы Все должно работать дальше разбирайся сам.
Приложение: Переключить в обычный режим- program password;
- const
-
- var
- UserPassword:String;
- i:word;
- begin
- writeln ('Enter a Password');
- for i:=0 to 2 do
- begin
- Readln (UserPassword);
- if UserPassword=CurPassword then
- begin
- Write ('You can begin work');
- break;
- end;
- end;
- if UserPassword<>CurPassword then
- begin
- Write ('I cause a guard');
- end;
- Readln;
- end.
 |
Ответ отправил: Кириченко Сергей (статус: 1-ый класс)
Время отправки: 11 мая 2010, 17:44
Оценка за ответ: 5
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
