Задать вопрос
ИнформатикаИнформатика
15 января, 20:13

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

+4
Ответы (1)
  1. 15 января, 21:18
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти алгоритм решения задачи и реализовать его с помощью оператора (операторов) if-then-else. В Атлантическом океане терпит бедствие ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
1. определить значение переменной А после выполнения оператора X:=5; if X>-3 then A:=X mod 2 else A:=abs (X) ; 2. определить значение переменной А после выполнения оператора X:=-26; Y:=6; if X div Y=4 then A:=X mod Y else A:=X*Y; 3.
Ответы (1)
Задание Определить без компьютера, что будет напечатано при выполнении следующих фрагментов программ: 1. k:=20; k:=k+10; if k+1030 then k:=8 else k:=k-1; WriteLn (k) Ответ: 2. k:=20; k:=k+10; if k+10 = 30 then k:=8 else k:=k-1; WriteLn (k) Ответ: 3.
Ответы (2)
Задание 1. Чему равен F (x) после выполнения следующих операторов? для x=4; 5; 3; 2; if x>=3 then if x
Ответы (1)
2) являются ли условными операторами след. последовательности символов: a) if x < y then x : = 0 else y : = 0; b) if x > y then x : = 0 else read (y) ; d) if a < b then 100 else z : = 25;
Ответы (1)
Нужна помощь с кодом Pascal. If k11 = k12 then Begin If k12 = k13 then Begin If k12 = 'х ' then goto win1 Else goto win2; End; End; Else goto showp1; Выдает ошибку на последнем Else Program1. pas (132) : Встречено 'Else', а ожидался оператор
Ответы (2)
Помогите с ответом
Упростите выражения: 1) - 36+m+24 2) n+42-13 3) 5,7-7,7+a 4) - 0,44+x-0,22 5) 3/8-0,375+k 6) m+5/9-2/3
Нет ответа
23 березня. Класна робота. Приклади№813. 82*67 55*74 78*39 75*34 Задача№815. Маса 1/2 кавуна станоаить 2 кг. 600 г. Яка маа 1/5 кавуна?
Нет ответа
Сравните числа а) 12,15 12,71 б) 0,582 0,59 в) 28,154 28,54 г) дробь 9/100 0,09
Нет ответа
решите уравнения: 8/9*3 целых 3/5 * (-2,1 х) = 20,16
Нет ответа
количество энергетических уровней и внешних электронов в атоме углерода 1) 2,2 2) 2.4 3) 3.4 4) 3.6
Нет ответа
Главная » Информатика » Найти алгоритм решения задачи и реализовать его с помощью оператора (операторов) if-then-else. В Атлантическом океане терпит бедствие пассажирский теплоход "Посудина". Все пассажиры будут спасены, если на помощь успеют два судна.
Регистрация Забыл пароль