)какую структуру будет иметь алгоритм решения следующей ? дано целое положительное число n. если n — четное, то вычислить n! = 1·2··n. если n — нечетное то вычислить сумму : 1 + 2 + .+n.составить программу на паскале

Разветвляющуюся структуру var n,f,s,i: integer; begin write('введите целое положительное число n= '); readln(n); f: =1; s: =0; if n mod 2 =0  then begin for i: =1 to n do f: =f*i; writeln(n, '! =', f); end else begin for i: =1 to n do s: =s+i; writeln('s= ', s) 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 подряд т.  к. теряется логика операции.

// pascalabc.net 3.0, сборка 1073 const   m=5;   n=4;   a: array[1..m] of real=(2,-7.1,3.2,-5.4,6.9);   b: array[1..n] of real=(8.1,3.2,-6.4,-3.5);   k=3; var   i,j: integer;   sk: real;   s: array[1..m,1..n] of real; begin   writeln('массив s');   for i: =1 to m do begin       for j: =1 to n do begin           s[i,j]: =a[i]*b[j];           write(s[i,j]: 7: 2)       end;       writeln   end;   sk: =0;   for i: =1 to m do sk: =sk+s[i,k];   writeln('сумма элементов столбца ',k,' равна ',sk) end. результат выполнения программы: массив s   16.20    6.40 -12.80  -7.00   -57.51 -22.72  45.44  24.85   25.92  10.24 -20.48 -11.20   -43.74 -17.28  34.56  18.90   55.89  22.08 -44.16 -24.15 сумма элементов столбца 3 равна 2.56