Создайте программу, которая выводит на экран последовательность пар чисел каждый раз отличительным цветом, выбранным случайным образом. заранее большое !

не совсем понятно, что имелось ввиду под последовательностью пар чисел, но в остальном получилось так:

uses crt; var i,a,b,n: integer; beginrandomize; textcolor(15); write('введите первое число: '); readln(a); write('введите второе число: '); readln(b); write('сколько раз вывести на экран? - '); readln(n); for i: = 1 to n do begin        textcolor(random(16));         writeln(a,' ',b); end; textcolor(15); end.

вот цыкл repeat textcolor(random(10)+3); textbackground(random(14)+1); gotoxy(1, 1); writeln('hello'); delay(10000); until keypressed; readkey;

как извесно, в информатике следование равяется нулю тогда, когда 1 член равен 1, а второй член равен 0. в остальных же случаях следвание равняется 1. отсюда методом подбора берем любые целые отрицательные числа, при которых будет выражение истинно.

сначала возьмем число -5. подставим

-5*-5 =25> 15 следовательно это истоинно и равно 1(-5+1)*(-5-1)=24< 26 следовательно это тоже равняется 1

из этого следует, что выражение истинно(1-> 1=1)

теперь попробуем взять число -6

-6*-6=36> 15 отсюда это истоинно и равно 1

(-6+1)*(-6-1)=35> 26 отсюда жто ложно и значит равняется 0

из этого следует, что выражение ложно (1-> 0=0)

отсюда можно сделать вывод, что дальше -5 числа не смысла брать т.к. в этом случае выражение будет равняться 0, а ниже -5 потому что нам нужно наибольшее целое отрицательное, следовательно наш ответ -5

ответ: -5