Var x,y: real;
begin
write(' x = '); readln(x);
if x<0 then y:=sqr(x)*x+2
else y:=sqrt(x);
writeln(' y = ',y:6:4);
end.
<span>
</span>
Организм по сути является системой взаимосвязано работающих органов. Организм
Все считаю в одной программе, если что, можно у1 и у2 в
разные разнести
<span><span>
Var
x:integer;
y1,y2:real;
begin
writeln('</span>Введите х<span>');
readln(x);
y1:=(3*exp(4*ln(x))+1)/exp(3*ln(x));
y2:=sqrt(8+x)-sqrt(8-x);</span></span>
writeln(‘y1=’,y1);
writeln(‘y2=’,y2);
end.
Хм,дорожный знак
Самое подходящее "символ"
Из перечисленных