4 Вариант
1. первый пример ¬0∨¬0=1 второй пример (1∨0)∧(0∨0)=0.
2. ((0∧0)∨0)∧(1∨A)
(0∧0)=0; (0∨0)∧(1∨A); 0∧(1∨A)=0; (каким бы не было значение 'А' ответ будет равен 0;
Var i,sum:integer; a:array[1..10] of integer;
begin;
for i:=1 to 10 do readln(a[i]); next i;
sum:=0;
for i:=1 to 10 do sum:=sum+a[i]; next i;
writeln('Сумма элементов = ',sum);
end.
Program pizma;
var a,b,c,v,sp,sb:real;
begin
read(a);
read(b);
read(c);
v:=a*b*c;
sb:=4*с*(a+b);
sp:=2*(a*b+b*c+a*c);
write('объем=',v,' площадьSb='sb,' и SP=',sp);
end.
32 байтов будет в этом письме