Question

ПРОШУ ПОМОГИТЕ ПЛИЗ! Выделите значения так, чтобы программа печатала значение true.Var t: Boolean; i: integer;begin t:= [true /false]; i:=0; repeat t:= [not t / false]; i:=i+1 until i=[100/101/102];write (t)end.​

Answer 1

Ответ:

Var t: Boolean;

 i: integer;

begin

 t:= false;

 i:=0;

 repeat

  t:= not t ;

  i:=i+1

 until i=101;

write (t)

end.

Объяснение:

Answer 2

Конечно, я помогу вам разобраться с этим кодом. Однако в вашем коде есть некоторые ошибки и непонятные моменты. Я предполагаю, что вы хотите создать программу, которая будет менять значение переменной t между true и false в цикле, а затем выводить значение t после определенного количества итераций. Вот исправленный и комментированный вариант вашего кода:

pascalCopy code
Var 
  t: Boolean; 
  i: Integer;
  
begin
  t := True; // Инициализируем переменную t значением true
  i := 0;    // Инициализируем переменную i значением 0
  
  repeat
    t := not t; // Инвертируем значение t (меняем true на false и наоборот)
    i := i + 1; // Увеличиваем значение i на 1
  until i = 100; // Повторяем цикл, пока i не станет равным 100
  
  write(t); // Выводим значение t
end.

В этой программе цикл будет повторяться 100 раз, и на каждой итерации значение переменной t будет инвертироваться (меняться с true на false и наоборот). После 100 итераций программа выведет значение t.

Если у вас есть какие-либо конкретные вопросы по коду или исправлениям, пожалуйста, дайте мне знать!