Question

Пассажир поезда провел в пути а часов.Сколько полных суток провел  в поезде пассажир?Сколько минут?

Answer 1

var a,min:integer;
     sut:real;
begin
     readln(a);
     sut:=Int(a/24);
     min:=a*60;
     writeln('Полных суток:',sut,'; минут',min);
end.