Question

Информатика(Pascal):составить программу которая запрашивает пароль (трёхзначное число), а после четырёх неправильных попыток выдаёт результат,,Вы-чужой,, и прекращает работу.

Answer 1

Program znanija;
var count, key, pass:integer;
begin
  pass:=1234;
  while count <= 3 do begin
    Inc(count);
    readln(key);
    if key = pass then
      count:=5
     else
      writeln('Попробуйте снова');
  end;
end.

Answer 2

Программа на языке Pascal, которая запрашивает пароль (трёхзначное число) и после четырёх неправильных попыток выдаёт результат "Вы - чужой" и прекращает работу, может выглядеть следующим образом:

program PasswordCheck;

var
  password, input: integer;
  attempts: integer;

begin
  password := 123; // заданный пароль
  attempts := 0; // счетчик попыток

repeat
    writeln('Введите пароль (трехзначное число): ');
    readln(input);
    attempts := attempts + 1;
    
    if input <> password then
      writeln('Неправильный пароль');
    
    if attempts = 4 then
    begin
      writeln('Вы - чужой');
      break; // прекращаем работу программы
    end;
  until input = password;
  
  if input = password then
    writeln('Доступ разрешен');
  
  readln;
end.

В данной программе используется цикл `repeat...until`, который будет выполняться до тех пор, пока введенный пароль не совпадет с заданным или не будет сделано 4 неправильных попытки. Если введенный пароль не совпадает с заданным, программа выводит сообщение "Неправильный пароль". Если сделано 4 неправильных попытки, программа выводит сообщение "Вы - чужой" и прекращает работу. Если введенный пароль совпадает с заданным, программа выводит сообщение "Доступ разрешен".