Program z1; Var a,b:integer; Begin write('Введите 1-ое число - '); readln(a); write('Введите 2-ое число - '); readln(b); if (a>0) then writeln('Является') else if (b>0) then writeln('Является') else writeln('Не является');<span>End.</span>
Ответ:
var a,b,x,y,y1,y2,y3: real;
begin
a:=2.5;
b:=1.5;
write('x = ');
readln(x);
y1:=sin((a+x)*(a+x));
y2:=power(abs(x-a),1/3);
y3:=ln((x-b)*(x-b)+1);
y:=x*y1*y1-y2+y3;
writeln('Y = ',y);
y1:=sqrt(a*x*x+x);
y2:=a*exp(-a*x);
y3:=ln(abs(1-x)+1);
y:=y1+y2+y3;
writeln('F = ',y);
end.
Сам tux paint
нажимаешь сохранить как
и нажимаешь сохранить в ту папку в которой тебе надо
как то так F:\SCHOOL\a1.doc
В 8 на выходе будет 0, т.е. ложно
9. ((не х) и z) или ((не z) и x), вариантов решения такой схемы много, так что задание полностью не решено