Ответ:
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.
У меня по информатике пятерки но в этом не могу тебе помочь
Посещают 3 секции: 13 + 16 + 19 - 44 = 4 человека
Программа напишет -1
program alg;
uses Crt;
var a,n: integer;
begin
ClrScr;
a:=1;
for n:= 1 to 4 do
a:=a+2-n;
if a>0 then
a:=a+10;
writeln (a);
ReadLn;
end.