Предмет: Информатика,
автор: asjr
вычислить через оператор IF
Приложения:

Ответы
Автор ответа:
0
var
x,y:real;
begin
write ('X = ');
readln(x);
if x>0 then y:=cos(x*pi/180) else
y:=sin(x*pi/180);
writeln ('Y = ',y);
readln;
end.
Похожие вопросы
Предмет: Английский язык,
автор: akbfarukh
Предмет: Алгебра,
автор: stefiilles199
Предмет: Биология,
автор: Maxim00002222
Предмет: Математика,
автор: руся2808
Предмет: Математика,
автор: nastyusha2111