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');

Объяснение:

Answer 2

Привет! Проблема в том, что ты используешь переменную t для сохранения оставшихся минут после вычисления часов. Однако, после вычисления часов ты должен использовать исходное значение переменной t, чтобы вычислить оставшиеся минуты. Вот исправленный вариант программы:

pascalCopy code
program zadacha;
var
  t, m, ch: integer;
begin
  write('Введите продолжительность фильма в минутах: ');
  read(t);
  
  ch := t div 60; // вычисляем часы
  m := t mod 60; // вычисляем минуты
  
  write('Фильм идёт ', ch, ' часа ');
  if m > 0 then
    write(m, ' минут')
  else
    write(''); // не выводим минуты, если их нет
end.

Теперь программа должна корректно выводить время продолжительности фильма.