Вводится начало занятий h1 — часов, m1- минут, n- количество уроков, d- длительность уроков, p-длительность перемен (считаем, что все перемены одинаковой длительности). Найти время окончания занятий: h2-часов, m2-минут.

Ответ учителя по предмету Информатика

program w;

    var h1,m1,h2,m2,mm1,mm2,n,d,p:integer;

begin;

    write(‘Введите время начала уроков: ‘);

    readln(h1,m1);

    write(‘Введите длину уроков: ‘);

    readln(d);

    write(‘Введите длину перемен: ‘);

    readln(p);

    write(‘Введите кол-во уроков: ‘);

    readln(n);

    mm1:=m1+h1*60;

    mm2:=mm1+d*n+p*(n-1);

    h2:=mm2 div 60;

    m2:=mm2 mod 60;

    write(‘Уроки закончатся в ‘, h2, ‘часов ‘, m2, ‘минут.’);

end.