(на python, c++ или pascal)кут (№1125)інтервал кутів між годинниковою та хвилинною стрілками годинника від 0 до 180 градусів (включаючи кути 0 і 180 градусів наприклад, коли на годиннику 12 годин, то кут між стрілками 0 градусів, а коли 6: 00, то відповідно 180 градусів. обчисліть кут між годинниковою та хвилинною стрілками у інтервалі часу від 12: 00 до 11: 59.вхідні данівхідні данные містять декілька випадків. кожен тестовий випадок у окремому рядку містить 2 цілих числа, відокремлених пропуском: перше число показує кількість годин (від 0 до 12) а друге вілповідно кількість хвилин (в інтервалі [0, вхідні дані завершуються рядком, що мітить два нулі.вихідні данідля кожного тестового випадку у окремому рядку вивести мінімальний кут між стрілками в градусах у форматі, наведеному у прикладі вихідних даних.вхідні дані #112 012 306 03 00 0вихідні дані #1at 12: 00 the angle is 0.0 degrees.at 12: 30 the angle is 165.0 degrees.at 6: 00 the angle is 180.0 degrees.at 3: 00 the angle is 90.0 degrees.
Ответы
Var a, b: integer; begin readln(a); while (inttostr(a).length > 1) do begin b : = 0; foreach c: char in inttostr(a) do b += strtoint(c); a : = b; end; writeln(b); end.=======================var a, b, e: integer; d: string; begin readln(a); d : = inttostr(a); while (length(d) > 1) do begin d : = inttostr(a); b : = 0; for e : = 1 to length(d) do b += strtoint(d[e]); a : = b; end; writeln(b); end.
Для перевода двоичного числа в десятичное необходимо это число представить в виде суммы произведений степеней основания двоичной системы счисления на соответствующие цифры в разрядах двоичного числа .например, требуется перевести двоичное число 10110110 в десятичное. в этом числе 8 цифр и 8 разрядов ( разряды считаются, начиная с нулевого, которому соответствует младший бит). в соответствии с уже известным нам правилом представим его в виде суммы степеней с основанием 2:
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Какие числа записаны с римских цифр mcix lxv
Автор: Милита1065
Сколько значищих нулей в двоичной записи чесла 876 в 10?
Автор: manimen345
Як здійснити масову розсилку?
Автор: pastore
Сов по информатике 6 класс 3 четверть много желательно с ответами
Автор: antonkovalev89
ответ:
var g,h: integer;
gg,hh,d: real;
begin
repeat
read(g,h);
if g=0 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;
writeln('at ',g,': ',h,' the angle is ',d: 2: 1,' degrees.');
until false;
end.