Постройте таблицу истинности не A или B и не A или не C

Question

Информатика: Постройте таблицу истинности не A или B и не A или не C

islamkazirbaev · Accepted Answer

//PascalABC.NET 3.2 сборка 1318

type
student=record
FIO:string;
age:integer;
CountOf3:integer;
end;

Const
n=3;

Var
ar:array[1..n] of student;

procedure reading();
Var
i:integer;
begin
writeln('ФИО |Возраст | Количество троек');
for i:=1 to n do
begin
read(ar[i].FIO);
write(' ');
read(ar[i].age);
write(' ');
read(ar[i].CountOf3);
writeln;
end;
end;

procedure writing();
Var
i:integer;
begin
writeln('ФИО |Возраст ');
for i:=1 to n do
if ar[i].CountOf3=1 then write(ar[i].FIO,' ',ar[i].age);
end;

begin
reading;
writing;
end.

MOGZ ответил