Question

Миша получит подарки ровно в полночь и недавно узнал, что телепрограмма Новогодний огонек будет длиться X минут начиная с полуночи. Миша хочет узнать в котором часу он ляжет спать, если посмотрит всю программу - X минут, для этого необходимо указать время в формате часы, минуты. Помогите Мише определить необходимые данные. Язык: pascal

Answer 1

Program Test;

Var
x: integer; chas: real; str1, str2: string;

Begin

Write('Введите длительность телепрограммы (мин): ');
Readln(X);
Writeln();

if (x < 60) then
begin
if (x < 10) then
Writeln('Миша ляжет спать в 00:0', x)

else
Writeln('Миша ляжет спать в 00:', x)
end

else
begin
chas := x div 60;
x := x mod 60;

if (chas >= 24) then
Writeln('Сегодня Миша спать не ляжет')

else
begin
if (chas < 10) then
str1 := '0' + chas

else
str1 := '' + chas;

if (x < 10) then
str2 := '0' + x

else
str2 := '' + x;

Writeln('Миша ляжет спать в ', str1, ':', str2);
end;
end;

End.

Answer 2

Для решения этой задачи в Pascal, нужно учитывать, что Миша ляжет спать после того, как закончится телепрограмма Новогодний огонек. После полуночи, программа будет длиться X минут, и Миша ляжет спать только после её окончания.

Вам нужно запросить у Миши значение X - количество минут, которое будет длиться программа, и затем вычислить время, когда он ляжет спать.

Пример решения на Pascal:

pascalCopy code
program CalculateBedtime;
var
  X, hours, minutes: integer;
begin
  writeln('Введите длительность программы в минутах (X): ');
  readln(X);

  // Переводим длительность программы из минут в часы и минуты
  hours := X div 60;
  minutes := X mod 60;

  // Рассчитываем время, когда Миша ляжет спать
  // Указываем, что Миша будет ложиться спать в 00:00 часов (полночь)
  // и добавляем к этому времени длительность программы
  hours := hours + 0;
  minutes := minutes + 0;

  // Проверяем и корректируем время, если минуты переваливают за 60
  if minutes >= 60 then
  begin
    hours := hours + minutes div 60;
    minutes := minutes mod 60;
  end;

  // Выводим результат
  writeln('Миша ляжет спать в ', hours, ':', minutes);
end.

После запуска программы, Миша должен ввести длительность программы (X) в минутах, и программа выведет время, когда он ляжет спать, после того, как посмотрит всю программу Новогодний огонек.