Предыдущая публикация
program p_1;
var x,y: real;
begin
writeln ('ââåäèòå ÷èñëà x');
read(x);
if x>0 then y:=ln(x) else y:= exp(x);
writeln ('y=',y:6:2);
end.
Следующая публикация
var x,y: real;
begin
writeln ('ââåäèòå ÷èñëà x');
read(x);
if x>0 then y:=ln(x) else y:= exp(x);
writeln ('y=',y:6:2);
end.
Нет комментариев