profile
Опубликовано 4 года назад по предмету Информатика от Флёр1

Дано количество секунд сначала суток. Вычислить текущее время в виде количества часов, минут и секунд. 

  1. Ответ
    Ответ дан Ruz34
    var h,m,s,a: integer;
    begin
    readln(a);
    h:= a div  3600;
    m:= (a - h*3600) div 60;
    s:= a - m*60 - h*3600;
    writeln(h); writeln(m);write(s);
    end.
    1. Ответ
      Ответ дан Ruz34
      У меня все правильно выдает
  2. Ответ
    Ответ дан yasadc
    uses crt;
    var a,h,m,s:integer;
    begin
    readln(a);
    h:=a div 3600;
    a:=a mod 3600;
    m:=a div 60;
    a:=a mod 60;
    s:=a;
    write(h,':',m,':',s);
    end.