Дан синус найти косинус,записать через программу pascal ABС
Дан синус найти косинус,записать через программу pascal ABС
Гость
Ответ(ы) на вопрос:
ГостьProgram zadanie;
Var x,y:real;
Begin
Writeln('Введите значение x');
readln(x);
y:=sqrt(1-sin(x));
Writeln('cos(x)=',y);
End.
Не нашли ответ?
Похожие вопросы