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

Question

Информатика

Лийка

25 октября, 16:48

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

+1

Ответы (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.