ЗАДАЧА В ПАСКАЛЕ В первый день моряк провел на лодке с А по В часов. Во второй день с С по D часов. В третий день c E по F часов. Вывести в какой день (1,2 или 3) моряк провел на лодке наибольшее количество часов.
Ответы
Ответ:
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. // Конец программы