Question

Здравствуйте, напишите пожалуйста задачу в PascalABC.NET !

Задача:

Дана продолжительность фильма в минутах. Нужно указать сколько часов и сколько минут будет идти данный фильм.

Вот что должно получится в окне вывода:

Введите продолжительность фильма в минутах:
157
Фильм идёт 2 часа 37 минут


Вот то что, пишу я:

program zadacha;

var t,m,s,ch:integer;

begin

write('Введите продолжительность фильма в минутах: ');

read(t);

ch:=t div (60*60);

t:=t mod (60*60);

m:= t div 60;

write(ch, ' ч.' , m, ' мин');

end.


Получается не верный ответ :

Введите продолжительность фильма в минутах: 157

0 ч.2 мин


Помогите пожалуйста, как написать правильно!

Эта задача с урока на ютубе под названием " Паскаль с Нуля. Арифметические действия, DIV, MOD. Урок 3 "

Answer 1

Ответ:

   readln(time);

   hours := time div 60;

   mins := time mod 60;

   writeln(hours, 'h ', mins, 'm');

Объяснение: