Программа на паскале. спортсмен принял участие в соревнавании. даны переменые h1, m1, s1,-время старта, h2,m2,s2-время финиша. требуется результат спортсмена в секундах, мин, часах.
189
239
Ответы на вопрос:
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.
Популярно: Информатика
-
Бекки517.03.2022 15:42
-
АннаК7803.09.2020 17:49
-
GevorgStepanyan01.04.2022 18:27
-
elyakiselya1702.02.2020 16:38
-
serega731505.01.2021 13:56
-
нарешатор05.10.2021 17:04
-
algor797917.04.2021 02:56
-
Lososepotam13.08.2022 00:36
-
irina70710.11.2022 18:22
-
gasimovaa4414.01.2023 09:09