program Project3;

{$APPTYPE CONSOLE}

uses
SysUtils;
function log(var x: real): real;
var y:real;
Begin
y:=0;
if x>0 then

y:=ln(x)/ln(10)

else
writeln('Zna4enie x ne ydovltev. OOF');
log:=y;

end;

Var x:real;
begin
Writeln('vvedite 4islo');
Readln(x);
if log(x)<>0 then
Writeln(log(x):3:4);

Readln;
end.

Случайные файлы

Файл
Readme.txt
student.txt
students.txt
Readme.txt
README.TXT




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.