Напишите программу в Паскале

Question

Напишите программу в Паскале

Максим Фетисов Мастер (1014), открыт 10 часов назад

Длительность некоторого физического эксперимента измеряется в секундах; определить количество часов(полных), минут и секунд.

Answer 1

Димка Зубарев Профи (856) 9 часов назад

program ExperimentDuration;

var
seconds: integer;
hours: integer;
minutes: integer;
remainingSeconds: integer;

begin
writeln('Введите длительность эксперимента в секундах:');
readln(seconds);

hours := seconds div 3600;
remainingSeconds := seconds mod 3600;
minutes := remainingSeconds div 60;
remainingSeconds := remainingSeconds mod 60;

writeln('Длительность эксперимента:');
writeln(hours, ' часов, ', minutes, ' минут, ', remainingSeconds, ' секунд.');

readln;
end.

⭐️⭐️⭐️⭐️⭐️ЗНАЮ⭐️⭐️⭐️ВСЁ⭐️⭐️⭐️⭐️⭐️Ученик (206) 7 часов назад

не работает

Димка Зубарев Профи (856) ⭐️⭐️⭐️⭐️⭐️ЗНАЮ⭐️⭐️⭐️ВСЁ⭐️⭐️⭐️⭐️⭐️, program ExperimentDuration; var seconds: integer; hours: integer; minutes: integer; remainingSeconds: integer; begin writeln('Введите длительность эксперимента в секундах:'); readln(seconds); if seconds < 0 then begin writeln('Ошибка: длительность не может быть отрицательной.'); exit; end; hours := seconds div 3600; remainingSeconds := seconds mod 3600; minutes := remainingSeconds div 60; remainingSeconds := remainingSeconds mod 60; writeln('Длительность эксперимента:'); writeln(hours, ' часов, ', minutes, ' минут, ', remainingSeconds, ' секунд.'); readln; // Ожидание ввода перед завершением программы end.

Answer 2

 program t;uses sysutils;var s,h,m:integer;begin readln(s);h:=s div 3600;s:=s mod 3600;m:=s div 60;s:=s mod 60;writeln(h,' ',m,' ',s);end.