//Pascal const n = 5; m = 5; var i, j, k: integer; a: array [1 .. n, 1 .. m] of integer; begin for i := 1 to 5 do begin for j := 1 to 5 do begin if j mod 2 = 0 then A[i, j] := 0 else A[i, j] := 1; write(A[i, j]:3); end; writeln; end; readln; 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 подряд т. к. теряется логика операции.
const
n = 5;
m = 5;
var
i, j, k: integer;
a: array [1 .. n, 1 .. m] of integer;
begin
for i := 1 to 5 do
begin
for j := 1 to 5 do
begin
if j mod 2 = 0 then A[i, j] := 0
else A[i, j] := 1;
write(A[i, j]:3);
end;
writeln;
end;
readln;
end.