1. Если в выражении присутствует операция деления /, то выражение имеет тип
1)integer 2)real 3)array 4)string
2. Арифметический квадрат обозначается функцией
1)sqr(x) 2)sqrt(x) 3)abs(x) 4)write(x)
3. Корень квадратный обозначается функцией
1)sqrt(x) 2)sqr(x) 3)abs(x) 4)write(x)
4. Абсолютная величина обозначается функцией
1)sqrt(x) 2)sqr(x) 3)abs(x) 4)write(x)
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
м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 ТО
Вывод.Цепь("^Первый и второй.")
ИНАЧЕ
Вывод.Цепь("^Ничья.")
КОН
КОН Задание.