Программа на Паскале. Спортсмен принял участие в соревнавании. ...
Программа на Паскале.Спортсмен принял участие в соревнавании.Даны переменые h1, m1, s1,-время старта, h2,m2,s2-время финиша.Требуется результат спортсмена в секундах, мин, часах.
Есть ответ
17.12.2022
165
Ответ
Program sport;var h1, m1, s1, h2, m2, s2, h, m, s, st, fin, p, i : integer;begin
writeln('Старт.');write('Количество часов ');read(h1);write('минут ');read(m1);write('секунд ');read(s1);
st:=s1+m1*60+h1*3600;
writeln('Финиш.');write('Количество часов ');read(h2);write('минут ');read(m2);write('секунд ');read(s2);
fin:=s2+m2*60+h2*3600;
p:=fin-st;
i:=p;
s:=p mod 60;
p:=p div 60;
m:=p mod 60;
p:=p div 60;
h:=p mod 60;
writeln('Итог - ',h,' часов ', m,' минут ',s,' секунд ');write(' Всего ',i,' секунд.');
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022