Var
a,b,c,y,x,:real;
function stup(x:real;n:integer):real;
var
i:integer;
k:real;
begin
k:=1;
for i:=1 to n do k:=k*x;
stup:=k;
end;
begin
writeln ('Введите x (число должно быть положительным)'); readln (x);
if x>=0 then begin
a:=stup(x,6); b:=stup(x-5,3); c:=stup(2*x+1,5);
y:=(a*b)/c;
Writeln ('y=',y:5:2);
end
end.
k:=1;
n:=0
for k to 100 do
begin
n:=n+1;
a:=1/n;
sum:=sum+a;
end;
примерно так (pascal долго качается так что я пока не проверял + если это из задачника там есть ответы с пояснением, удачи)
<span>a=истина, b=ложь, с=истина.</span>
<span>а) a и b = И и Л = ложь
б) a и b или c = Л или И = истина
в) (a или b) и (с или b) = (И или Л) и </span><span><span>(И или Л)</span> = И или И = истина
г) a или b = И или Л = истина
д) a или b и c = И или (Л и И) = И или Л = истина
е) не (a или b) и (c или b) = (не И) и И = Л и И = ложь
ж) не a или b = Л или Л = ложь
и) не a или b и c = Л или (Л и И) = Л или Л = ложь
<span>к) не (a и b и c)</span></span> = не (И и Л и И) = не Л = истина
набрать полное 9-л. ведро.перелить с него воду в 5-л. ведро.(в 9-л. ведре должно остаться 4 л) Вылить из 5-л. ведра его содержимое иналить туда всю воду из 9-л. ведра.набрать полное 9-л. ведро. перелить из него воды так, чтобы 5-л. ведро стало полным. (в 9-л. ведре должно остаться 8 л)вылить содержимое 5-л. ведра и наполнить его доверху содержимым 9-л. ,в котором после завершения операции одлжно остаться 3 л. А воду из 5-л. ведра можно вылить.