Андрей
Ol
Oleg
var X : real;
begin
Write('X = '); ReadLn(X);
if Sin(X) = 0 then WriteLn('не существует') else WriteLn('Y = ', (1-Cos(X)) / Sin(X):0:5);
end.
Похожие вопросы
var X : real;
begin
Write('X = '); ReadLn(X);
if Sin(X) = 0 then WriteLn('не существует') else WriteLn('Y = ', (1-Cos(X)) / Sin(X):0:5);
end.