Определить, сколько полных часов (h) и полных минут (m) прошло с начала суток до того момента (в первой половине дня), когда часовая стрелка повернется на f градусов (от 0 до 360).Напишите решение на языке паскаля
Определить, сколько полных часов (h) и полных минут (m) прошло с начала суток до того момента (в первой половине дня), когда часовая стрелка повернется на f градусов (от 0 до 360).
Напишите решение на языке паскаля
Гость
Ответ(ы) на вопрос:
Гостьvar C: integer;
h, m: string;
begin
readln(C);
C := C * 2;
if (C div 60 < 10) then h := '0' + inttostr(C div 60);
if (C mod 60 < 10) then m := '0' + inttostr(C mod 60);
writeln(h, ':', m);
end.
Сам такое недавно делал, только на КуМИР'е)
Не нашли ответ?
Похожие вопросы