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