Напишите программу на языке Pascal, которая будет определять, какое из двух расстояний (S1 или S2) больше. При этом

Название: Определение большего расстояния

Инструкция: Программа на языке Pascal может быть написана для определения, какое из двух расстояний - S1 или S2 - больше другого. Для этого мы можем воспользоваться простым преобразованием единиц измерения. Для сравнения, нам нужно привести оба расстояния к одной единице измерения. В данной задаче S1 задан в метрах, а S2 - в саженях, поэтому преобразуем S2 в метры, учитывая, что 1 сажень равен 2.13 метра. Затем сравним S1 и S2, используя операторы сравнения (">" и "<") и выведем соответствующий результат.

Доп. материал:

pascal

program Определение_большего_расстояния;



var

   S1, S2, S2_m : real;



begin

   writeln("Введите расстояние S1 в метрах: ");

   readln(S1);

   

   writeln("Введите расстояние S2 в саженях: ");

   readln(S2);

   

   S2_m := S2 * 2.13; // Преобразование саженей в метры

   

   if S1 > S2_m then

      writeln("S1 больше S2.")

   else if S1 < S2_m then

      writeln("S2 больше S1.")

   else

      writeln("S1 и S2 равны.");

   

   readln;

end.

Совет: При использовании языка Pascal важно помнить о правильной типизации переменных и преобразовании единиц измерения при необходимости. В данном случае, мы преобразовали сажени в метры, чтобы сравнить два расстояния.

Ещё задача: Напишите программу на Pascal, которая будет определять наибольшее из трех чисел. (Подсказка: использовать операторы ветвления if-then-else и операторы сравнения).