Написать программу для pascal abc

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

Question

Крестя

28 декабря, 02:37

+3

Ответы (1)

Знаете ответ?

Федяха · Answer 1

Если только полных часов то так:

program pr1;

var s, ch:integer;

begin

readln (s) ;

ch:=s div 3600;

writeln (ch,' час (ов) ') ;

end.

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