Написать программу для pascal abc С начала суток прошло N секунд (целое). Найти кол-во...

Question

Написать программу для pascal abc
С начала суток прошло N секунд (целое). Найти кол-во полных часов, прошедших с начала суток.

Answer 1

Если только полных часов то так:
program pr1;
var s,ch:integer;
begin
readln(s);
ch:=s div 3600;
writeln(ch,' час(ов)');
end.