program angle2;var H,...

program angle2;var
H, M, S, A, T, B :LongInt;
begin
Assign(input, 'input.txt');
Reset(input);
assign(output, 'output.txt');
Rewrite(output);
ReadLn(H, M, S);
T:= H*3600+M*60+S;
A:= (12 * 3600) div 360;
B:= T*A;
WriteLn(B, ' ', H);
end.
с начала суток часовая стрелка повернулась на угол бета определите показание часов в этот момент времени.
Скажите, правильно? В ПАскале?

 

Program angle2;
 var
H, M, S, A, T, B :LongInt;
 begin
Assign(input, 'input.txt');
 Reset(input);
 assign(output, 'output.txt');
 Rewrite(output);
 ReadLn(H, M, S);
 T:= H*3600+M*60+S;
 A:= (12 * 3600) div 360;
B:= T*A;
 WriteLn(B, ' ', H);
Close(input);{Забыл закрыть файл}
Close(output);{Забыл закрыть файл}
ReadLn;{Поставь чтоб ответ считать а то программу выполнишь она сразу закроется, оператор обозначает здесь ждет нажатия клавиши чтобы завершить процесс}
 end.