На фото 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.
1. sin это арифметическое действие. Синус можно найти из 90 градусов например. А тут X>10. Из чего синус искать, из большего или может из меньшего? Правильной будет запись
if x>10 then ... какое-то действие... sin(x) else ... sin (x);
вообщем нельзя ставить оператор сравнения в арифметическое действие т.к. им задаются условия.
2. Попытка использовать арифметические операции с "false".
3. Выражение теряет смысл. And это логическая операция. Лог выражение должно быть вида A and B. Соответственно исправить можно так '(x=0) and (round(sqrt(x)) mod 2=0)'
4. Не пишут 2 or подряд т. к. теряется логика операции.