Проблема в том, что если я ввел пароль правильно то действия должны происходить дальше, по началу так и было, но потом каким то образом, программа начала закрываться даже когда пароль правильный. pascalabc.net program gamer; var key: string; name: string; age: integer; height: integer; weight: integer; cartoons: string; begin writeln('добро ! для авторизования введите ваше имя! '); writeln(''); readln(name); sleep(2000); writeln(name, ',', ' ', 'введите ваш административный пароль'); writeln(''); readln(key); if(key='wnei3wvryh~ggna') then writeln('вы авторизовались как администратор! ') else writeln('вы ввели неправильно административный пароль! '); sleep(3000); begin exit; writeln('пройдите небольшой тест, затем результаты напишите на листочке! '); sleep(1000); writeln('how old are you? '); writeln(''); readln(age); if(age> 15) then writeln('you"re an adult') else writeln('you"re not an adult'); sleep(1500); writeln('tell me how tall are you? '); writeln(''); readln(height); if(height> 30) then writeln('you"re a very small man! ') else writeln('you"re already a tall man.'); sleep(2000); writeln('what is your weight? '); writeln(''); readln(weight); if(weight> 100) then writeln('you"re a very fat person! ') else writeln('you have the right weight! '); sleep(1500); writeln('what kind of cartoons do you like? '); writeln(''); readln(cartoons); sleep(2000); writeln(name, ' ', 'все превосходно! '); sleep(1000); writeln('ваше имя: ', ' ', name); writeln('административный пароль: ', ' ', key); writeln('возраст: ', ' ', age); writeln('рост: ', ' ', height); writeln('вес: ', ' ', weight); writeln('мультфильмы, которые нравятся: ', ' ', cartoons); sleep(30000); end; end.

260

434

Посмотреть ответы 2

Ответы на вопрос:

ppapsd

Информатика

4,7(31 оценок)

тут нет ничего удивительного.

sleep(3000);

begin

exit;

вот этот выход и срабатывает в любом случае.

grugoryan85

Информатика

4,5(23 оценок)

Из недостатков может быть
Потеря работы
Одиночество
Правомочность
Безопасность
Современное оружие

Задай свой вопрос

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.