Ветвящиеся алгоритмы (условный оператор

@sopha · Регистрация: 19.11.2010

Author24 — интернет-сервис помощи студентам

вариант №13

@SuPeR XaKer · 19.11.2010, 18:46

Pascal

Uses
 CRT;
VAR
 z,x:real;
begin
ClrScr;
readln(x);
if x>2 then
z:=ln(abs((x-1)/x))
else
z:=cos(exp(x*ln(4))+5)/sin(exp(x*ln(4))+5);
write('Z(x):=',z);
readkey
end.

что то с кодировкой не совсем разобрал что там написано.

	19.11.2010, 18:46

Ветвящиеся алгоритмы (условный оператор

Решение