//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
write(sqrt(x+1));
end.
<span>var x,y:real;
begin
write('x=');
readln(x);
if x<=-1 then y:=1
else if(x>-1)and(x<=2) then y:=x
else y:=1/(x*x);
write('y=',y:0:2);
readln
end.
</span>
Опишем условия задачи (ориентируемся на рисунок где выделены области N1, N2, N3)
N2=1000 (из условия фрегат & эсминец 1000)
N1+N2=2000 (из условия фрегат 2000)
N2+N3=2500 (из условия эсминец 2500)
Запрос фрегат | эсминец можно описать как
N1+N2+N3
Выражаем из уравнений выше каждую из N
N2=1000
N1=2000-N2=2000-1000=1000
N3=2500-N2=2500-1000=1500
Получаем:
N1+N2+N3=1000+1000+1500=3500
A := 3 * 100 + 20 = 320
b:= 320*2-240 = 400
Ответ:400