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