Question

ALCATUITI VA ROG PROGRAMUL
se da N secunde,cate ore,minute,secunde sunt in valoarea N
N=4000

Answer 1

Răspuns:

program h_min_sec;

var N, h, m, s:integer;

begin

 write('secunde, N='); read(N);

 h:=N div 3600;

 N:=N mod 3600;

 m:=N div 60;

 s:=N mod 60;

 writeln('ore=',h);

 writeln('min=',m);

 writeln('sec=',s);

end.

Explicație: