Найти алгоритм решения и реализовать его с оператора(операторов) if-then-else. в атлантическом океане терпит бедствие пассажирский теплоход ”посудина”. все пассажиры будут если на успеют два судна. судно продержится на плаву t часов. скорость судов узлов. составить программу, определяющую ли пассажиры. известны расстояния от трех судов до тонущего судна.
v=40;
var
t,r1,r2,r3:real;
n:integer;
begin
write('Сколько часов продержатся пассажиры? ');
readln(t);
write('Введите расстояния до трех в узлах): ');
readln(r1,r2,r3);
if r1/v<t then n:=1;
if r2/v<t then n:=n+1;
if r3/v<t then n:=n+1;
все')
else
половина пассажиров')
else writeln('Никто не
end.