23.12.2013, 17:46
|
#2 (permalink)
|
Member
Регистрация: 14.12.2013
Сообщений: 18
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
наработки
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(y)
end
|
|
|