Символом F обозначено одно из указанных ниже логических выражений от трех аргументов: X, Y, Z. Дан фрагмент таблицы истинности выражения F. Какое выражение соответствует F? 1)X^Y^Z 2)¬X^¬Y^Z 3)X^Y^¬Z 4)¬X^¬Y^¬Z
ответ под номером 4. Первый не подходит так как первая строка не верна . 000 должно быть 0, а не 1. Потому что везде логическое И. Второй не подходит по той же причине. Третье так же
1.var a,b:integer; begin writeln('введите числа (0 признак окончания ввода)'); readln(a); b:=1; while (a<>0) do begin readln(a); if (a mod 2 = 0) and (a<>0) then b:=b*a; end;writeln('произведение чётных чисел последовательности ',b); end. 2.var a,b:integer; begin b:=0; a:=1; while (a<=10000) do begin if (a mod 10 = 0) then b:=b+1; a:=a+1; end; writeln('количество круглых чисел ',b); end. 3.var a,b:integer; begin writeln('введите числа (1 признак окончания ввода)'); readln(a); b:=0; while (a<>1) do begin readln(a); if (a mod 7 = 0) then b:=b+1; end; writeln('цифра 7 встречается ',b,' раз'); end. 4.var a,b:integer;begin writeln('введите числа (0 признак окончания ввода)'); b:=0; a:=1; while (a<>0) do begin readln(a); if (a<>0) then b:=a*a+b; end;writeln('сумма квадратов ',b); end.
const n=5;var i,j,s,p: integer; a: array [1..n,1..n] of integer; b,c: array [1..n] of integer;begin for i:=1 to n do for j:=1 to n do a[i,j]:=Random(100);{ вывод на экран } for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; { цикл по массиву } for j:=1 to n do {цикл по колонке } begin s:=0; p:=1; for i:=1 to n do {цикл по строке} if (a[i,j] mod 2 = 0) then p:=p*a[i,j] else s:=s+a[i,j]; if (p>1) then c[j]:=p else c[j]:=0; if (s>0) then b[j]:=s else b[j]:=0; end; writeln('массив для четных элементов'); for i:=1 to n do write(c[i]:10); writeln; writeln('массив для нечетных элементов'); for i:=1 to n do write(b[i]:4); end.
Первый не подходит так как первая строка не верна .
000 должно быть 0, а не 1. Потому что везде логическое И.
Второй не подходит по той же причине.
Третье так же