Ребят очень нужно решить задачу.ДАЮ 75 БАЛЛОВ + ПЕРВОМУ КТО ОТВЕТИТ ЛУЧШИЙ ЗАСЧИТАЮ. В...

Question

66 просмотров

Ребят очень нужно решить задачу.ДАЮ 75 БАЛЛОВ + ПЕРВОМУ КТО ОТВЕТИТ ЛУЧШИЙ ЗАСЧИТАЮ.

В компьютер поступают результаты соревнований по плаванью ( количество минут и секунд) для трёх спортсменов.Составьте программу, которая выводит на экран лучший результат.

Информатика Altair11_zn (538 баллов) 30 Апр, 18 | 66 просмотров

Дано ответов: 2

аноним · Answer 1 · 2018-04-30T06:09:37+0000

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
м1, с1, м2, с2, м3, с3: ЦЕЛ;

УКАЗ
Вывод.Цепь("Первый спортсмен: ");
м1 := Приём.Число(); Вывод.Цепь(":"); с1 := Приём.Число();
Вывод.Цепь("^Второй спортсмен: ");
м2 := Приём.Число(); Вывод.Цепь(":"); с2 := Приём.Число();
Вывод.Цепь("^Третий спортсмен: ");
м3 := Приём.Число(); Вывод.Цепь(":"); с3 := Приём.Число();

с1 := с1 + м1 * 60;
с2 := с2 + м2 * 60;
с3 := с3 + м3 * 60;

ЕСЛИ с1 > с2 ТО
ЕСЛИ с3 > с1 ТО
Вывод.Цепь("^Третий.")
АЕСЛИ с1 > с3 ТО
Вывод.Цепь("^Первый.")
ИНАЧЕ
Вывод.Цепь("^Первый и третий.")
АЕСЛИ с2 > с1 ТО
ЕСЛИ с3 > с2 ТО
Вывод.Цепь("^Третий.")
АЕСЛИ с2 > с3 ТО
Вывод.Цепь("^Второй.")
ИНАЧЕ
Вывод.Цепь("^Второй и третий.")
ИНАЧЕ
ЕСЛИ с3 > с1 ТО
Вывод.Цепь("^Третий.")
АЕСЛИ с3 < с1 ТО
Вывод.Цепь("^Первый и второй.")
ИНАЧЕ
Вывод.Цепь("^Ничья.")
КОН

КОН Задание.