Question

Найти алгоритм решения задачи и реализовать его с помощью оператора(операторов) if-then-else. В Атлантическом океане терпит бедствие пассажирский теплоход ”Посудина”. Все пассажиры будут спасены, если на помощь успеют два судна. Судно продержится на плаву t часов. Скорость судов-спасателей 40 узлов. Составить программу, определяющую спасутся ли пассажиры. Известны расстояния от трех судов-спасателей до тонущего судна.

Answer 1

const
  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; 
If n>1 then writeln('Спасутся все')
  else
    if n>0 then writeln('Спасется половина пассажиров')
      else writeln('Никто не спасется')
end.