Известно время вылета самолета: нн часов и мм минут, а также продолжительность полета (нр часов и мр минут напишите программу, которая определяет время прибытия самолета в аэропорт назначения в виде «чч: мм» формат входных данных: с клавиатуры вводится четыре числа через пробел нн, мм, нр, мр, обозначающие соответственно часы и минуты вылета и часы и минуты продолжительности полета. формат выходных данных: на экран вывести время прибытия самолета в аэропорт назначения в виде «чч: мм

Var       hh, mm, hp, mp: integer; begin       readln(hh, mm, hp, mp);       hh : = hp * 60 + hh * 60 + mm + mp;       writeln(hh div 60 mod 24, ': ', hh mod 60); end.

Program array2d; var       v_range, v_neg, i, j, n: integer;       array: array of array of integer;       i_range, i_neg: array[1..2] of integer; begin randomize; write('введіть n: '); readln(n); setlength(array, n, n); write('введіть а та b: ); readln(a, b); for i: = 1 to n do       for j: = 1 to n do           array(i, j) : = random(100); for i: = 1 to n do       for j: = 1 to n do       begin           if array(i, j) in a..b then           begin                 if assigned(v_neg) then                     break; {перевірка, чи є негативне значення знайденим}                 v_range : = array(i, j);                 i_range[1] : = i;                 i_range[2] : = j;           end;           if array(i, j) < 0 then           begin                 if assigned(v_range) then                     break;                 v_neg : = array(i, j);                 i_neg[1] : = 1;                 i_neg[2] : = 2;           end;       end; if assigned(v_range) and assigned(v_neg) then begin       array(i_range[1], i_range[2]) : = v_neg;       array(i_neg[1], i_neg[2]) : = v_range; end; writeln('виконано.'); end.

Не знаю чего именно там хотели, но так программа работает и при 50 var       a, b, y, z: integer; begin       writeln('1-да, 0-нет');       a : = 1;       b : = 100;             while b - a > 0 do       begin               z : = (a + b) div 2;               writeln(' число больше ', z);               readln(y);               if y = 1 then                       a : = z + 1               else                       b : = z;       end;             writeln('ваше число ', a); end.