Question

С начала суток часовая стрелка повернулась на у градусов (0

Answer 1

прямая задача
uses crt;
var u:real;
    h,m:integer;
begin
clrscr;
repeat
write('Введите угол поворота часовой стрелки 0<=u<360 u=');
readln(u);
until(u>=0)and(u<360);
h:=trunc(u/30);
m:=trunc(2*u)-h*60;
writeln('С начала суток прошло');
if h<10 then write('0',h,':') else write(h,':');
if m<10 then write('0',m) else write(m);
readln
end.

Answer 2

обратная задача
uses crt;
var u:real;
    h,m:integer;
begin
clrscr;
repeat
write('Введите количество часов от 0 до 11 h=');
readln(h);
until h in [0..11];
repeat
write('Введите количество минут от 0 до 59 m=');
readln(m);
until m in [0..59];
writeln('Угол поворота часовой стрелки составил: ');
u:=h*30+m/2;
write(u:0:2);
readln
end.