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

Question

Информатика

Ронюша

18 мая, 15:35

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

+3

Ответы (1)

Знаете ответ?

Тимоха · 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
if r2/v
if r3/v
If n>1 then writeln ('Спасутся все')

else

if n>0 then writeln ('Спасется половина пассажиров')

else writeln ('Никто не спасется')

end.