Определите значения логических переменных a, b, c, d, если: 1) а и (тигр хищное животное) - истинное - id576260020210114 от bereza11 14.01.2021 10:24

Question

Информатика: Определите значения логических переменных a, b, c, d, если: 1) а и (тигр хищное животное) - истинное высказывание; 2) в и (тигр хищное) - ложное высказывание; 3) с и (весна наступает после лета) - истинное высказывание; 4 d и (весна наступает после лета) - ложное высказывание.

bereza11 · Accepted Answer

Const
n=5;m=6;
var
a:array[1..n,1..m]of integer;
b:array[1..m]of longint;
k,i,j:integer;
p:longint;
begin
for i:=1 to n do
begin
writeln;
for j:=1 to m do
begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
end;
writeln;

for j:=1 to m do
begin
p:=1;
for i:=1 to n do
if (a[i,j]mod 2=0)and(a[i,j]>0) then
p:=p*a[i,j];
if p<>1 then
begin
k:=k+1;
b[k]:=p;
end;
end;
for i:=1 to k do
write(b[i]:8);
end.

MOGZ ответил