1) Видим A "И" !A что всегда даст Ложь, выражение всегда = ЛОЖЬ при любых аргументах
2) A & B & C | A & not(B & C)
А за скобку
A & (B & C | not(B & C) )
Все что справа от A всегда истино, можно опускать
Ответ: A
var
a,n,min:integer;
begin
readln(a);
n:=1;
min:=100;
if (a mod 3 <>0) or (a=0) then
begin
writeln('Net par');
exit;
end
else
begin
n:=a;
repeat
readln(a);
if a mod 3 <> 0 then break;
n:=n*a;
if (n<min) then min:=n;
n:=a;
until (a mod 3 <> 0) or (a=0);
end;
writeln;
if min = 100 then writeln('Net par') else
writeln(Min);
end.
Program Test;
var A, B, C, S, K: byte;
begin
ReadLn(A, B, C);
S := ((A * C) * 2) + ((B * C) * 2);
K := S div 8;
if (k mod 10) > 0 then
begin Inc(K);WriteLn('Потребуется купить ', K, ' банок краски');
end;
if (k mod 10) < 0 then WriteLn('Потребуется купить ', K, ' банок краски');
end.
Диск C правая кнопка мыши и форматировать