Написать программу на паскале, пожалуйста, срочно надо

Ответ

Автор - Mango123

var x,y:real;
begin
writeln('Введите x');
readln(x);
if x>0 then y:=cos(x) else y:=sin(x);
writeln(y);
readln;
end.

Сервис носит ознакомительный характер, вся информация, а в частности вопросы и ответы, которые задают и отвечают пользователи.