Var t: Boolean;
i: integer;
begin
t:= false;
i:=0;
repeat
t:= not t ;
i:=i+1
until i=101;
write (t)
end.
Объяснение:
Var t: Boolean;
i: integer;
begin
t:= false;
i:=0;
repeat
t:= not t ;
i:=i+1
until i=101;
write (t)
end.
Объяснение: