Question

Паскаль, помогите. Сделать так, чтобы программа повторилась несколько разprogram z;var x,a,k:integer;beginx:=random(100)+1;repeatwriteln('Введите число от 1 до 100');readln(a);k:=k+1;if a>x then write ('>');if a<x then write ('<');until a=x;writeln('Вы угадали с ' ,k, '-й попытки');end.

Answer 1

Repeat ставишь в начало, где нужно повторение
 until false в конец

Answer 2

Для того чтобы программа повторялась несколько раз, вы можете использовать цикл `for` или `while`. В данном случае, чтобы повторить программу несколько раз, вы можете обернуть код в цикл `for` или `while` и указать количество повторений.

Вот пример, как можно изменить ваш код, чтобы программа повторялась 5 раз:

program z;
var
  x, a, k, i: integer;
begin
  for i := 1 to 5 do
  begin
    x := random(100) + 1;
    k := 0;
    repeat
      writeln('Введите число от 1 до 100');
      readln(a);
      k := k + 1;
      if a > x then
        write('>');
      if a < x then
        write('<');
    until a = x;
    writeln('Вы угадали с ', k, '-й попытки');
  end;
end.

В этом примере, программа будет повторяться 5 раз. Каждый раз будет генерироваться новое случайное число `x`, и пользователь будет пытаться угадать это число. После каждой попытки программа будет выводить результат и количество попыток.

Примечание: Ваш исходный код содержит некорректные символы `>` и `<`. Я предположил, что вы хотели использовать символы `>` и `<` для сравнения чисел. Если это не то, что вы имели в виду, пожалуйста, уточните ваш вопрос.