Информатика 8 класс нужно напечатать ** компьютере алгоритм, чтобы затем программа дала...

Question

Информатика 8 класс нужно напечатать на компьютере алгоритм, чтобы затем программа дала ответ ( все на фото ) задача номер "4"

---

Answer 1

Program sadas;

var sec,chas,min:integer;

begin
readln(sec);

while sec >= 3600 do
begin
chas:= chas + 1;
sec:= sec - 3600;
end;

while sec >= 60 do 
begin
min:= min + 1;
sec:= sec - 60;
end;
writeln(chas, ' ', min, ' ', sec);
end.