
Виктор
5 год назад
пожалуста 3 задачу(паскаль)даю 50 поинтов + подписка и большое спасибо

ОТВЕТЫ

Леонид
Oct 24, 2020
//PascalABC.NET
var x, y: real;
begin
write('Введите x: '); readln(x);
y := (exp(sqr(x)/2)) + power(abs((power(tan(power(x,3)),3))/(1 + sqrt(x))),(1/3));
writeln('y = ', y);
end.
var x, y: real;
begin
write('Введите x: '); readln(x);
y := (exp(sqr(x)/2)) + power(abs((power(tan(power(x,3)),3))/(1 + sqrt(x))),(1/3));
writeln('y = ', y);
end.
939
Смежные вопросы: