Решение в паскаль?

решение в паскаль?
Причому на початку кожної години вони б'ють стільки раз, скільки зараз годин (по одному разу у годину ночі і дня, по два – у дві години ночі і дня ., по 12 – опівдні і опівночі. І ще по одному разу вони б'ють в середині кожної години. Дано проміжок часу протягом одного дня. Напишіть програму, що визначає, скільки ударів годинник зробив за цей час.
решение в паскаль?

  • В очко
  • шооооооооооо?
  • Тем, кто захочет помочь.. .

    Причем в начале каждого часа они бьют столько раз, сколько сейчас часов (по одному разу в час ночи и дня, по два - в 2:00 ночи и дня. , По 12 - в полдень и в полночь. И еще по одному разу они бы 'ют в середине каждого часа. Даны промежуток времени в течение одного дня. Напишите программу, определяющую, сколько ударов часы сделал за это время.
    решение в паскаль?

    Источник: мне лень:)
  • var
    h1, m1, h2, m2, c: integer;
    begin
    readln(h1, m1, h2, m2);
    c := 0;
    inc(m1, h1 * 60);
    inc(m2, h2 * 60);
    while m1 <> m2 do begin
    if m1 mod 60 = 0 then begin
    h1 := m1 div 60;
    if h1 = 0 then inc(c, 12);
    if h1 > 12 then inc(c, h1 - 12) else inc(c, h1);
    end
    else if m1 mod 30 = 0 then inc(c);
    if m1 = 24 * 60 then m1 := 0;
    inc(m1);
    end;
    writeln(c);
    end.