Составить программу перевода радианной меры угла в - вопрос №681555 от vlad20077 27.05.2020 22:58

Question

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

vlad20077 · Answer

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.