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

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

Question

Николаич

29 января, 11:21

+4

Ответы (1)

Знаете ответ на вопрос?

Арсеньюшка · Answer 1

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

program pr1;

var s, ch:integer;

begin

readln (s) ;

ch:=s div 3600;

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

end.

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