Постройте таблицу истинности к задаче: Обсуждая конструкцию нового трёхмоторного самолёта, трое конструкторов поочередно высказали следующие предположения: 
1) при отказе второго двигателя надо приземляться, а при отказе третьего можно продолжать полёт; 
2) при отказе первого двигателя лететь можно, или при отказе третьего двигателя лететь нельзя; 
3) при отказе третьего двигателя лететь можно, но при отказе хотя бы одного из остальных надо садиться. 
Лётные испытания подтвердили правоту каждого из конструкторов. Определите, при отказе какого из двигателей нельзя продолжать полёт. ​

=B8+$B25

Объяснение:

Столбцы в табличном процессоре размечены английский алфавитом: A B C D и так далее.

В ячейку С5 (столбец С, строка 5) вводят формулу "=А6+$В23", после чего копируют эту формулу в ячейку D7 (столбец D, строка 5) ⇒ эта ячейка находится справа на одно значение и на 2 строки вниз от ячейки C5 ⇒ В введенной формуле изменится значение первого аргумента "A6"  на "B8", второй аргумент находится в частичной заморозке (ячейка B заморожена - не изменяется при копировании, а строка ячейки - нет) ⇒ "B23" заменится на "B25"

Uses crt;
type oc=record
       per,bt,tr:integer;
end;
ab=record
fam,im:string;
ocen:oc;
end;
var b:array [1..50] of ab;
l:ab;
i,n,g,k,h:integer;
begin
clrscr;
writeln ('введи количество абитуриентов');
readln (n);
Writeln ('Вводи фамилии, имена и 3 оценки');
for i:=1 to n do
with b[i] do
begin
readln (fam);
readln (im);
readln (ocen.per,ocen.bt,ocen.tr);
end;
clrscr;
for j:=1 to n do
for i:=1 to n-1 do
if b[i].fam>b[i+1].fam then
begin
l:=b[i];
b[i]:=b[i+1];
b[i+1]:=l;
end;
writeln ('Список всех аббитуриентов:');
for i:=1 to n do
writeln (b[i].fam,' ',b[i].im,' ',b[i].ocen.per,' ',b[i].ocen.bt,' ',b[i].ocen.tr);
writeln ('Список допущенных аббитуриентов');
for i:=1 to n do
with b[i] do
begin
with ocen do
if (per>30) and (bt>30) and (tr>30) and (per+bt+tr>140) then writeln (fam,' ',im,' ',ocen.per,' ',ocen.bt,' ',ocen.tr);
end;
readln;
end.