Дано расстояние в см,найдите число полных метров в нем

Question

Информатика: Дано расстояние в см,найдите число полных метров в нем

MariaSet010203 · Accepted Answer

var h1,m1,n,d,p,h2,m2: integer;
begin
write('начало занятий (часы, минуты): '); readln(h1,m1);
write('количество уроков: '); readln(n);
write('длительность уроков: '); readln(d);
write('длительность перемен: '); readln(p);
m2:=m1+n*d+(n-1)*p;
h2:=h1+m2 div 60;
m2:=m2 mod 60;
writeln('время окончания занятий: ',h2,' часов ',m2,' минут');
end.

начало занятий (часы, минуты): 9 30
количество уроков: 4
длительность уроков: 45
длительность перемен: 10
время окончания занятий: 13 часов 0 минут

MOGZ ответил