Составить программу для вычисления значения

[Demon11101995]

Составить программу для вычисления значения

необходимо составить программу для вычисления значения y,не используя логические операции (использовать if )
y=a AND (b OR c OR d)

 

[Demon11101995]

наработки
program ABC;
var a,b,c,d:boolean;
begin
a:=true
b:=true
c:=true
d:=true
if a then
if b then y:=true
else if c then y:=true
else if d then y:=true
else y:=false
writeln
end

 

[Demon11101995]

нужно добавить else но куда????

 

[Vladimir_S]

необходимо составить программу для вычисления значения y,не используя логические операции (использовать if )
y=a AND (b OR c OR d)

Редкостный бред (я про задание). Ладно, получите:

Var
 y,a,b,c,d:boolean;
Begin
 if a then
  begin
   if b then y:=true else
   if c then y:=true else
   if d then y:=true else y:=false;
  end else y:=false
End.