paskal
22-10-2007 14:01
к комментариям - к полной версии
- понравилось!
вверх^
к полной версии
понравилось!
в evernote
Комментарии (7):
Aleksandriya-Esxata
23-10-2007-15:33
удалить
и не говори, только столько париться нада.......... с тебя "поцелуй с языком" детка....... :*
Aleksandriya-Esxata
23-10-2007-15:36
удалить
program a9(input,output);
var t,b:integer; a,x,p:real;
begin
readln(a,t,b,x);
p:=(ln(abs(((2*a)+sqr(x))/(a-sqr(x)))))+((exp((ln(t-sqr(a)))/3))/(sqrt(abs(t-sqr(b)))));
writeln(p);
end.
var t,b:integer; a,x,p:real;
begin
readln(a,t,b,x);
p:=(ln(abs(((2*a)+sqr(x))/(a-sqr(x)))))+((exp((ln(t-sqr(a)))/3))/(sqrt(abs(t-sqr(b)))));
writeln(p);
end.
Aleksandriya-Esxata
23-10-2007-16:23
удалить
program a22(input,output);
var z,x1,x2,x3:real;
begin
readln(x1,x2,x3);
if exp(x3)>30 then z:=exp((ln(abs(1+x1)))/5)
else if exp(x3)<30 then z:=cos(3.1415927*41/180)
else if exp(x3)=30 then z:=12.41-ln(abs(x2));
writeln(z);
end.
var z,x1,x2,x3:real;
begin
readln(x1,x2,x3);
if exp(x3)>30 then z:=exp((ln(abs(1+x1)))/5)
else if exp(x3)<30 then z:=cos(3.1415927*41/180)
else if exp(x3)=30 then z:=12.41-ln(abs(x2));
writeln(z);
end.
ischadie_ada
27-10-2007-15:55
удалить
Скажи на милость, какого чёрта тебе этот паскаль понадобился???????????
Aleksandriya-Esxata
29-10-2007-14:04
удалить
да помогаю нуждающимся в Паскале,,,, darcella, кстати как все прошло? как сдала?
Aleksandriya-Esxata, я пока еще не знаю, пока еще не проверили))
Комментарии (7):
вверх^
Вы сейчас не можете прокомментировать это сообщение.
Дневник paskal | Aleksandriya-Esxata - I am What I am |
Лента друзей Aleksandriya-Esxata
/ Полная версия
Добавить в друзья
Страницы:
раньше»