Предмет: Информатика, автор: asjr

вычислить через оператор IF

Приложения:

Ответы

Автор ответа: Mishka28
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.   

 

Похожие вопросы
Предмет: Биология, автор: Maxim00002222
Предмет: Математика, автор: nastyusha2111