Предмет: Информатика,
автор: dniwesyka
дан синус найти косинус,записать через программу pascal ABС
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Биология,
автор: shapovalhp4000
Предмет: Геометрия,
автор: Ba4ka999
Предмет: Математика,
автор: sergazievakamila179
Предмет: Алгебра,
автор: elyon
Предмет: Алгебра,
автор: dashaatb97