Question

В первый день моряк провел на лодке с А по В часов. Во второй день с С по D часов. В третий день c E по F часов. Вывести в какой день (1,2 или 3) моряк провел на лодке наибольшее количество часов.

Answer 1

код программы:

program Boat;

var A: integer;

var B: integer;

var C: integer;

var D: integer;

var E: integer;

var F: integer;

var diff_1D: integer;

var diff_2D: integer;

var diff_3D: integer;

var max: integer;

var max_ident: integer;

begin

   writeln();

   writeln('1 день. Со скольки до скольки часов? (через пробел):');

   readln(A, B);

   diff_1D := B - A;

   

   writeln('2 день. Со скольки до скольки часов? (через пробел):');

   readln(C, D);

   diff_2D := D - C;

   

   writeln('3 день. Со скольки до скольки часов? (через пробел):');

   readln(E, F);

   diff_3D := F - E;

   

   if diff_1D > diff_2D then begin

   max := diff_1D;

   max_ident := 1

   end

   else begin

   max := diff_2D;

   max_ident := 2

   end;

   

   if max < diff_3D then begin

   max := diff_3D;

   max_ident := 3

   end;

   writeln('максимальное время на лодке: ', max, ' часов');

   writeln('максимальное время прибывания было на ', max_ident, ' день');

   

   

end.