1. Таблица истинности во вложении. Получился xor, или исключающее или: 1 получится тогда, когда ровно один из аргументов равен 1.
2. Пропали знаки между (1 & 0) и 1, и между 1 и A. - если это знаки "и" (&), то: ((1 & 0) & 1) & (1 & A) = 1 & 0 & 1 & 1 & A = 0, так как среди выражений есть 0. - если это знаки "или" (v), то: ((1 & 0) v 1) & (1 v A) = (... v 1) & (1 v ...) = 1 v 1 = 1.
Uses Crt; Const N = 15; M = 10; Var A:array[1..N,1..M] of real; i,j:integer; S3,S7:real; Begin Randomize; ClrScr; WriteLn('Исходный массив:'); For i:= 1 to N do Begin For j:= 1 to M do Begin A[i,j]:=random*13; Write(A[i,j]:6:3,' ') End; WriteLn End; S3:=0; S7:=0; For j:= 1 to M do Begin S3:=S3+A[3,j]; S7:=S7+A[7,j]; End; WriteLn('S3 = ',S3:0:3); WriteLn('S7 = ',S7:0:3); if S3 > S7 then WriteLn('S3 > S7') else if S3 < S7 then WriteLn('S3 < S7') else WriteLn('S3 = S7'); ReadLn End.
Эта программа позволяет находить количество слов в предложении, если слова разделены одним пробелом:
Var s:string; i,k:integer; Begin writeln('Введите строку'); readln(s); k:=0; for i:=1 to length(s) do begin if s[i]=' ' then k:=k+1; end; writeln('Количество слов в предложении = ',k+1); end.
А эта программа позволяет находить количество слов в предложении, если слова разделены одним или несколькими пробелами:
var s: string; i, k: integer; begin k := 0; writeln('Введите строку: '); readln(s); s:= ' ' + s; for i:=1 to length(s)-1 do if (s[i] = ' ') and (s[i+1] <> ' ') then k:=k+1; writeln(k) end.
2. Пропали знаки между (1 & 0) и 1, и между 1 и A.
- если это знаки "и" (&), то: ((1 & 0) & 1) & (1 & A) = 1 & 0 & 1 & 1 & A = 0, так как среди выражений есть 0.
- если это знаки "или" (v), то: ((1 & 0) v 1) & (1 v A) = (... v 1) & (1 v ...) = 1 v 1 = 1.