Технический форум - Показать сообщение отдельно

АсяЯ · 15.11.2016, 20:20

var a,m,p,n:real;
begin
writeln('введите значения');
readln(a,m,p);
n:=(exp(p*ln(a))+(1/exp(p*ln(a)))/(((2*exp(m*ln(a))-(exp(m-p)*ln(a))))));
writeln(n)
end.

15.11.2016, 20:20	#4 (permalink)
АсяЯ Member Регистрация: 05.11.2016 Сообщений: 14 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	вот я начала 1 задание,но где то косяк var a,m,p,n:real; begin writeln('введите значения'); readln(a,m,p); n:=(exp(pln(a))+(1/exp(pln(a)))/(((2exp(mln(a))-(exp(m-p)*ln(a)))))); writeln(n) end.

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070