Question

ПОМОГИТЕ!!!!!!11
Створіть програму в Паскалі.
Швидкість катера за течією річки становить х км/год, а швидкість
течії – у км/год. Знайдіть власну швидкість катера та швидкість
катера проти течії річки, склавши програму

Answer 1

var

 boatV, boatMinusRiverV, boatPlusRiverV, riverV: real;

begin

 writeln('Введите скорость катера по течению: ');

 readln(boatPlusRiverV); // x

 writeln('Введите скорость течения: ');

 readln(riverV); // y

 boatV := boatPlusRiverV - riverV;

 boatMinusRiverV := boatV - riverV;

 writeln('Скорость лодки: ', boatV,  

         ' км/ч. Скорость лодки против течения: ', boatMinusRiverV, ' км/ч.');

end.