Составить программку перевода радианной меры угла в градусы, минутки и секунды.

Составить программку перевода радианной меры угла в градусы, минуты и секунды.

Задать свой вопрос
1 ответ
uses crt;
var Rd,Gr,G,M,S:real;GMS:string;
begin
clrscr;
write(Rd=);readln(Rd);
Gr:=Rd*180/pi;
G:=int(Gr);
M:=int(frac(Gr)*60);
S:=frac(frac(Gr)*60);
Write(Rd:4:2,rad= ,G:3:0,gr ,M:3:0,min ,S:3:1,sec);
readln
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт