Устин
6 год назад
Составить по алгоритму программу на языке программирования Pascal.
ОТВЕТЫ
Gaedezas
Aug 8, 2019
Var x,z:real;
begin
write(x = );
readln(x);
if xlt;0 then z:=ln(-x)/ln(10) else z:=sqrt(x+1);
writeln(z = ,z);
end.
Пример:
x = -100
z = 2
begin
write(x = );
readln(x);
if xlt;0 then z:=ln(-x)/ln(10) else z:=sqrt(x+1);
writeln(z = ,z);
end.
Пример:
x = -100
z = 2
23
Смежные вопросы:
