Question

Электронный часовой пропускает только знающих пароль (придумайте сами числовой пароль). Написать программу для часового, который приняв верный пароль, отдаст команды «Распахнуть ворота!», «Оркестр, музыку!», «Проходите!». А для нарушителей команды будут такими: «Тревога!», «Задержать его!». Команды выводятся на экран, причем каждая на новой строке (т.е. на каждой строке должно быть только одно предложение). Помогите пожалуйста в PascalABC.Срочно! Даю 50 баллов

Answer 1

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  if ReadlnString('Пароль?')='1836547290' then
      Writeln('Распахнуть ворота!',NewLine,'Оркестр, музыку!',
      Newline,'Проходите!')
  else Writeln('Тревога!',NewLine,'Задержать его!')
end.

Answer 2

Конечно, помогу! Вот программа на PascalABC для часового, который принимает числовой пароль и дает соответствующие команды:

pascalCopy code
program PasswordGuard;

var
  password: Integer;

begin
  // Введите пароль (здесь используем число 12345 в качестве пароля, вы можете изменить на свое число)
  writeln('Введите пароль:');
  readln(password);

  // Проверяем пароль
  if password = 12345 then
  begin
    // Верный пароль, выводим команды
    writeln('Распахнуть ворота!');
    writeln('Оркестр, музыку!');
    writeln('Проходите!');
  end
  else
  begin
    // Неверный пароль, выводим другие команды
    writeln('Тревога!');
    writeln('Задержать его!');
  end;
end.

Программа ожидает ввода числового пароля. Если введен верный пароль (в данном случае 12345), то на экране появятся команды для прохождения. В противном случае, если пароль неверный, будут выведены команды для задержания нарушителя.