Question

Известны два расстояния: одно в километрах, другое – в футах (1
фут = 0,305 м). Какое из расстояний меньше?
Сделать блок-схему

Answer 1

// PascalABC.NET

begin
   var L1 := ReadlnReal('введите расстояние в км: ');
   var L2 := ReadlnReal('введите расстояние в футах: ');
   L2 := L2 * 0.305E-3; // перевод футов в километры
   if L1 < L2 then
      Println('L1 меньше')
   else if L2 < L1 then
      Println('L2 меньше')
   else
      Println('L1 = L2')
end.