ABC Pascal

[geship]

Написать программу перевода временного интервала, заданного в минутах, в величину, выра-женную в часах и минутах.(150 минут  2 часа 30 минут).

[Mad_Cat]

k:=0;
while min>59 do begin
min:=min-60;
k:=k+1;
end;
writeln(k, ' ч. ',min,' минут');

и кросспостинг у нас запрещен

[ByAlex]

Сообщение от geship

Написать программу перевода временного интервала, заданного в минутах, в величину, выра-женную в часах и минутах.(150 минут  2 часа 30 минут).

Держи -

var
   time:integer;
begin
     write('Input the time in minuts - ');
     readln(time);
     write(time div 60,' hours ',time mod 60,' minutes');
     readln;
end.

[Артём-Программиzd]

readln(a);
h:=a DIV 60;
m:=a MOD 60;
writeln(h,' ч. ',m,' мин.');