Question

Напишите программу,запрашивающую у пользователя два момента времени(количество часов,минут и секунд) и сообщающую число секунд,прошедшее между этими двумя моментами.

Answer 1

Var h1,h2,m1,m2,s1,s2,s:integer;
begin
write('Введите время первого события: ');
readln(h1,m1,s1);
write('Введите время второго события: ');
readln(h2,m2,s2);
s:=h2*3600+m2*60+s2-h1*3600-m1*60-s1;
writeln('Число секунд между ними: ',s);
end.