Вычислить значение выражения

@oleg1995 · Регистрация: 22.01.2013

Author24 — интернет-сервис помощи студентам

розписати формолу для паскалі

Комментарий модератора

Официальный язык форума - русский. Переведите.

@Leshak · 07.02.2013, 00:19

Pascal

Uses crt;
var 
 y, x, b: real;
begin
clrscr;
write('Enter x:');readln(x);
write('Enter b:');readln(b);
 
y:=exp(1/3*ln(sqr(b)+sqr(x)));
 
writeln('y=',y:0:3);
 
readln;
end.

@Puporev · 07.02.2013, 09:40

Pascal

1 2	if(b=0)and(x=0) then y:=0 else y:=exp(ln(sqr(b)+sqr(x))/3);

	07.02.2013, 09:40

Опции темы

Вычислить значение выражения

Решение