Помогите!!! На фото 5 вопросов и тут еще 2.
7 вопрос: Выделите значения так, чтобы программа печатала значение 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.
8 вопрос: Выделите один оператор так, чтобы программа печатала только те числа, которые кратны 3.
Var x: integer;
Begin
[x:=5;]
[x:=x+1;]
while x<100 do
begin
[x:=x+3;]
[x:=x+1;]
[write (x)]
end;
End.