Гурий
4 год назад
Пожалуйста посчитайте по информатике 16. номер
ОТВЕТЫ
Прокл
Oct 24, 2020
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var (x,y):=ReadReal2();
var m: real;
if x<7 then m:=sqrt(2*x)+cos(4*y) else if (x<9) and (x>=7)
then m:=-2*x+5*power(e,-y) else m:=-x*x+3*ln(4*y);
write(m);
end.
//Версия 3.3, сборка 1611
begin
var (x,y):=ReadReal2();
var m: real;
if x<7 then m:=sqrt(2*x)+cos(4*y) else if (x<9) and (x>=7)
then m:=-2*x+5*power(e,-y) else m:=-x*x+3*ln(4*y);
write(m);
end.
80
Смежные вопросы:
