Помогите решить,задача паскаль: В аэропорту три посадочные полосы. Для каждой известны длина и признак занятости (признак =1, если полоса занята и =0, если полоса свободна). Для самолета с заданным номером рейса и длиной посадо...
Помогите решить,задача паскаль:
В аэропорту три посадочные полосы. Для каждой известны длина и признак занятости (признак =1, если полоса занята и =0, если полоса свободна). Для самолета с заданным номером рейса и длиной посадочного пути определить возможность посадки и указать номера посадочных полос.
Ответ(ы) на вопрос:
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.
Не нашли ответ?
Похожие вопросы