profile
Опубликовано 6 лет назад по предмету Информатика от grizzly2345

Идёт k-я секунда суток. Определить, сколько полных часов (H) и полных минут (M) прошло к этому моменту.

  1. Ответ
    Ответ дан Ghost22

    Program Pr1;
    uses crt;
    var k:integer;
    Begin
    clrscr;
    readln(k);
    writeln('minut proshlo ',k div 60);
    writeln('chasov proschlo ',Trunc(k/60) div 60);
    end.

  2. Ответ
    Ответ дан Kitsu

    var k:integer;
    begin
    readln(k);
    writeln('H=',k div 3600);
    while k>=3600 do k:=k-3600;
    writeln('M=',k div 60);
    end.

Самые новые вопросы