Question

Составить по алгоритму программу на языке программирования Pascal.

Answer 1

Var x,z:real;
begin
write('x = ');
readln(x);
if x<0 then z:=ln(-x)/ln(10) else z:=sqrt(x+1);
writeln('z = ',z);
end.

Пример:
x = -100
z = 2