Question

Даны значения двух моментов времени, принадлежащих одним и тем же суткам: часы, потом минуты и секунды для каждого из моментов времени. Известно, что второй момент времени наступил не раньше первого. Определите, сколько секунд прошло двумя моментами времени. Формат входных данных В первой строке входных данных находятся три целых числа — часы, минуты и секунды первого момента времени. Во второй строке — три числа, характеризующие второй момент времени. Число часов лежит в диапазоне от 0 до 23, число минут и секунд — от 0 до 59.
Формат выходных данных Выведите сколько грамм песка просыпалось за время между двумя указанными моментами времени.
Примеры входные данные выходные данные
1 1 1      -------------------------3661
2 2 2

1 2 30
1 3 20 ----------------------------------50

Answer 1

PascalABC

Program Time;

var h1,h2,m1,m2,s1,s2:integer;

begin

 writeln('Введите первый момент времени:');

 write('Часы = '); readln(h1);

 write('Минуты = '); readln(m1);

 write('Секунды = '); readln(s1);

 writeln('Введите второй момент времени:');

 write('Часы = '); readln(h2);

 write('Минуты = '); readln(m2);

 write('Секунды = '); readln(s2);

 s1:=h1*3600+m1*60+s1;

 s2:=h2*3600+m2*60+s2;

 writeln('Между первым и вторым моментом прошло ',s2-s1,' секунд.');

 end.