Цитата:
program vvod_vyvod;
var y,x:real;
begin
writeln('Введите натуральное число');
readln(x);
y:=ln(abs(exp(ln(X) * 0.2))+1)+ln(abs(3*x)) ;
write('Ответ по-моему: ');
writeln(y);
end.
|
Вроде так, могу ошибаться, т.к. пишу в блокнотах программы вам для pascal.