Question

НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЕ. В первый день моряк провел на лодке с А по В часов. Во второй день с С по D часов. В третий день c Е по F часов. Вывести в какой день (1, 2 или 3) моряк провел на лодке наибольшее количество часов.

Answer 1

Ответ:

program sailor;

var

 a, b, c, d, e, f: integer;

begin

 read(a, b, c, d, e, f);

 if (b - a + 1 > d - c + 1) and (b - a + 1 > f - e + 1) then

   write('1');

 if (d - c + 1 > b - a + 1) and (d - c + 1 > f - e + 1) then

   write('2');

 if (f - e + 1 > b - a + 1) and (f - e + 1 > d - c + 1) then

   write('3');

end.

Объяснение:

program sailor;  // Название программы

var

 a, b, c, d, e, f: integer;  // Целочисленные переменные, отвечающие за часы в 1 - 3 дни

begin  // Начало программы

 read(a, b, c, d, e, f);  // Считываем часы с клавиатуры

 if (b - a + 1 > d - c + 1) and (b - a + 1 > f - e + 1) then  // Если разница между часами первого дня + 1 > разницы между часами второго и третьего дней, тогда

   write('1');  // Выводим 1

 if (d - c + 1 > b - a + 1) and (d - c + 1 > f - e + 1) then  // Если разница между часами второго дня + 1 > разницы между часами первого и третьего дней, тогда

   write('2');  // Выводим 2

 if (f - e + 1 > b - a + 1) and (f - e + 1 > d - c + 1) then  // Если разница между часами третьего дня + 1 > разницы между часами первого и второго дней, тогда

   write('3');  // Выводим 3

end. // Конец программы

Answer 2

Конечно, вот программа на языке Паскаль, которая решает данную задачу:

pascalCopy code
program MaxHoursAtSea;

var
  A, B, C, D, E, F: Integer;  // Время проведенное на лодке в каждый из трех дней
  maxHoursDay: Integer;        // Номер дня с максимальным временем проведенным на лодке

begin
  // Ввод данных
  writeln('Введите время проведенное на лодке в первый день (А - В): ');
  readln(A, B);

  writeln('Введите время проведенное на лодке во второй день (С - D): ');
  readln(C, D);

  writeln('Введите время проведенное на лодке в третий день (Е - F): ');
  readln(E, F);

  // Поиск дня с максимальным временем проведенным на лодке
  maxHoursDay := 1;  // Пусть первый день изначально имеет максимальное время
  if B - A < D - C then
    maxHoursDay := 2;
  
  if F - E > D - C then
    maxHoursDay := 3;

  // Вывод результата
  writeln('Моряк провел наибольшее количество часов на лодке в ', maxHoursDay, ' день');
end.

Эта программа сначала запрашивает время, проведенное на лодке в каждый из трех дней, затем сравнивает эти значения и выводит номер дня, в котором моряк провел наибольшее количество часов на лодке.