Для заданного числа х вывести на экран меньшее из значений 1/х и sin x

Question

Информатика

Виринея

11 мая, 09:03

Для заданного числа х вывести на экран меньшее из значений 1/х и sin x

+5

Ответы (1)

Знаете ответ на вопрос?

Машура · Answer 1

Var x: real;

begin

write ('Введите х: ') ;

readln (x) ;

if (1/x) < sin (x) then writeln ('1/x = ', 1/x)

else writeln ('sin (x) = ', sin (x)) ;

end.