Question

Я пишу про пред вопрос с шаром судьбы.
Мне тут один человек вроде как хотел помочь с кодом , а именно ( uxaisha586) ,но я потерял с ним(нею) связь.
Поэтому прошу , можно помочб сделать так что бы можно было бесконечно задавать вопросы в этом коде? Это Паскаль если что . ​

Answer 1

Нужно использовать цикл, это довольно просто.

Используем конструкцию:

while true do

  begin  

  end;

Цикл будет выполняться бесконечно.

Если на твой код смотреть, то "while true do begin " вставляешь перед началом программы, а end после "end;", относящегося к case of.

Максимально простой пример:

program ss;

var a : integer;

begin

while true do

begin

writeln('Введите a: ');

readln(a);

case a of

1: writeln('q');

2: writeln('ne q');

end;

end;

end.