Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.