Предмет:
ИнформатикаАвтор:
ahmed56Автор:
maya95Автор:
nataliavazquezАвтор:
madalynАвтор:
jaidaАвтор:
paulareevesОтвет:
Var g,h:integer;
Hhh,ggg:string;
gg,hh,d:real;
Begin
Repeat
Read(g,h);
if g=h and h=0 then break;
Gg:=30*(g mod 12)+h/2;
Hh:=h*6;
D:=abs(gg-hh);
If d>180 then d:=360-d;
str(h,hhh);
if h<10 then hhh:='0'+hhh;
Writeln('At ',g,':',hhh,' the angle is ',d:2:1,' degrees.');
Until false;
End.
Автор:
harpoДобавить свой ответ
Предмет:
ПравоАвтор:
shaylabushОтветов:
Смотреть
Предмет:
АлгебраАвтор:
giselaarmstrongОтветов:
Смотреть
Предмет:
АлгебраАвтор:
dodgeruutsОтветов:
Смотреть
Предмет:
ГеографияАвтор:
lincoln362Ответов:
Смотреть