Задача на Паскаль

[surf135]

Идет k-я секунда суток. Вывести на экран количество полных
часов и минут, прошедших от начала суток.

[type_Oleg]

Так с чем проблема, с арифметикой или с операторами Pascal ?

[surf135]

а так я понял,вводишь например 900 секунд, и должно вывести 15 минут?
с арифметикой,а какой там оператор?

[type_Oleg]

А если ввести k=86399 секунд ?
Распиши подробно все вычисления , все арифметические действия.
А операторы найдутся.

PS Кстати, сказано " идет k секунда" . Значит прошло k-1 секунд.

[Аватар]

n - кол-во сек
n div 3600 - часов
(n mod 3600) div 60 - минут
n mod 60 - секунд

[surf135]

Примерно так или не верно?

Program Time;
var
s,m,h,h1: Longint;
begin
Write('Введите количество секунд: ');
readln(s);
h:= s div 3600 ;
m:=60;
h1:= h*m ;
Writeln('Часов =', h);
Writeln('Минут =', h1);
end.

[type_Oleg]

Сообщение от surf135

Идет k-я секунда суток. Вывести на экран количество полных часов и минут, прошедших от начала суток.

Например, идет 4206-я секунда. То есть прошло 4205 секунд.

Какой ответ правильный:
- прошел 1 полный час и 10 полных минут, или
- прешел 1 полный час , или 70 полных минут ?
Если 1-й ответ правильный, то

Program Time;
var
 k,m,h: Longint;
begin
 Write('sec= ');
 readln(k);
 k:=k-1;
 h:= k div 3600 ; 
 m:=(k-3600*h)div 60;
 Writeln('hour =', h,'   min =', m);
end.

Если второй, то заменить одну строку:

m:=k div 60;

[studen]

type_Oleg,
правильно 1ч 10м,
а не 1ч или 70м

hours := secs div 3600;
mins := secs mod 3600 div 60;

когда получаем часы, мы секунды делим на 3600
когда получаем минуты, мы получаем остаток от деления на 3600, убирая целые часы, а затем получаем минуты делением результата на 60.