Помогите решить, задача паскаль:

В аэропорту три посадочные полосы. Для каждой известны длина и признак занятости (признак = 1, если полоса занята и = 0, если полоса свободна). Для самолета с заданным номером рейса и длиной посадочного пути определить возможность посадки и указать номера посадочных полос.

Question

Информатика

Килина

29 января, 17:23

Помогите решить, задача паскаль:

В аэропорту три посадочные полосы. Для каждой известны длина и признак занятости (признак = 1, если полоса занята и = 0, если полоса свободна). Для самолета с заданным номером рейса и длиной посадочного пути определить возможность посадки и указать номера посадочных полос.

+5

Ответы (1)

Знаете ответ на вопрос?

Савватия · Answer 1

A, b:array[1 ... 100] of integer;

i, k, n. m, c:integer;

begin

readln (c) ;

for i:=1 to 3 do

readln (a[i], b[i]) ;

for i:=1 to 3 do

if (a[i]>c) and (b[i]=0) then writeln ('yes', i)

else writeln ('no') ;

readln;

end.