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

Yantarnoe_9664

4

program CompareDistances;

var

  S1_meters, S2_fathoms, S2_meters: real;

begin

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

  readln(S1_meters);

  

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

  readln(S2_fathoms);

  

  // конвертируем сажени в метры

  S2_meters := S2_fathoms * 2.134;

  

  if S1_meters > S2_meters then

    writeln("Расстояние S1 больше расстояния S2.")

  else if S1_meters < S2_meters then

    writeln("Расстояние S2 больше расстояния S1.")

  else

    writeln("Расстояния S1 и S2 равны.");

end.

program CompareWeights;

var

  m1_kg, m2_pounds, m2_kg: real;

begin

  writeln("Введите массу первого мешка (m1) в килограммах:");

  readln(m1_kg);

  

  writeln("Введите массу второго мешка (m2) в пудах:");

  readln(m2_pounds);

  

  // конвертируем пуды в килограммы

  m2_kg := m2_pounds * 16.38;

  

  if m1_kg > m2_kg then

    writeln("Первый мешок (m1) тяжелее второго мешка (m2).")

  else if m1_kg < m2_kg then

    writeln("Второй мешок (m2) тяжелее первого мешка (m1).")

  else

    writeln("Массы обоих мешков равны.");

end.