Показать сообщение отдельно

  #1336  
Старый 25.04.2009, 02:22
oOoOoOo
Banned
Регистрация: 23.05.2008
Сообщений: 59
С нами: 9456866

Репутация: 138
По умолчанию

Цитата:
Сообщение от Flame of Soul  
Задача 2
PHP код:
program Project1;
uses
  SysUtils
;
var
  
i,kinteger;
  
x,yreal;
begin
  writeln
('vvedite X:');
  
read(x);
  
k:=0;
  
y:=0;
  if 
x<0.3 then
    y
:=ln(ABS(sin(sqrt(x))))
    else if 
x>0.6 then y:=exp(ln(x)*3)
    else 
y:=exp(ln(3)*x);
  
writeln('Otvet: '+floattostr(y)+#10#13);
  
readln(x);
end
Спасибки тебе!!)
 
Ответить с цитированием