С клавиатуры вводятся число секунд, необходимо найти и вывести на экран количество минут и секунд, которые подучатся в ходе вычислений
С клавиатуры вводятся число секунд, необходимо найти и вывести на экран количество минут и секунд, которые подучатся в ходе вычислений
Гость
Ответ(ы) на вопрос:
Гостьvar s,m,h:integer;
begin
write('Число секунд: ');
readln(s);
h:=s div 3600;
s:=s-h*3600;
m:=s div 60;
s:=s-m*60;
writeln(h,':',m,':',s)
end.
Не нашли ответ?
Похожие вопросы