Question

как сделать чтобы после неверного ответа на вопрос появлялся 2 вопрос паскаль АБС. Что можно добавить что бы типа ответил человек не верно и ему дали другой вопрос и наоборот program Demo_Case;

Answer 1

ты о чом абс это по машинам отключить абс опусти ричаг или едь к механеку а так я не понимаю.

Answer 2

Чтобы реализовать логику, при которой после неверного ответа на вопрос будет предложен другой вопрос, вы можете использовать конструкцию case в языке Pascal. Вот пример программы, которая демонстрирует эту идею:

pascalCopy code
program Demo_Case;
var
  Answer: Char;
begin
  writeln('Ответьте на вопрос (Y/N):');
  readln(Answer);
  
  case Answer of
    'Y', 'y': writeln('Вы ответили "Да"');
    'N', 'n': 
    begin
      writeln('Вы ответили "Нет"');
      writeln('Пожалуйста, ответьте на другой вопрос:');
      readln(Answer); // Читаем новый ответ
      case Answer of
        'A', 'a': writeln('Вы ответили "A"');
        'B', 'b': writeln('Вы ответили "B"');
        'C', 'c': writeln('Вы ответили "C"');
        else writeln('Неверный ответ.');
      end;
    end;
    else writeln('Неверный ответ.');
  end;
end.

Эта программа сначала задает вопрос и ожидает ответа "Y" или "N". Если пользователь ответил "N" или "n", программа предлагает другой вопрос и снова ожидает ответа, после чего выполняет вторую часть case, чтобы обработать новый ответ. Если пользователь введет "A", "B" или "C", будет выведено соответствующее сообщение. Если введен неверный ответ, программа также сообщит об этом.