Через программу проверить истинность высказывния "среди трех данных целых чисел есть хотя бы одна пара "

program num1; uses crt; var a,b,c : real; begin clrscr; write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); if (a=b) or (b=c) or (c=a) then write ('высказывание < среди трех данных целых чисел есть хотя бы одна пара > истино') else write('высказывание < среди трех данных целых чисел есть хотя бы одна пара > ложно'); end.

Чтобы узнать размер одной секунды звукового файла нужно   глубину кодирования умножить на количество измерений в 1 секунду: глубину кодирования можно определить через количество уровней. их количество равно 2^n, где n - глубина кодирования. 16=2^n   n=4 информационный объем 1 секунды = 128 000*4*1=512  000бит=62,5 кбайт. узнаем объем картинки. в 256-цветной  палитре 1 пиксель = 8 бит. 16384  пикселя*8  бит=131  072бит=16  кбайт т.к. дима скачивал граф. файл с иваном, значит, скорость=2кб/с время скачивания=16/2=8с значит остальные 68-8=60с музыкальный файл скачевался со скоростью 4кб/с. общий объем муз. файла=60с*4кб/с+8с*2кб/с=256кбайт длительность муз.файла=256/62,5=4с

// дан целочисленный массив x(n,m).среди элементов нечетных столбцов массива найти количество четных чисел. program asd; uses crt; const n=4;           m=4; var x: array[1..n, 1..m] of integer; i,j,k: integer; begin for i: =1 to n do   begin   for j: =1 to m do     begin       x[i,j]: =random(10);       write(x[i,j]: 3);     end;     writeln;   end;   for i: =1 to n do     for j: =1 to m do       begin           if x[i,j] mod 2 = 0 then k: =k+1;       end;     writeln('кол-во четный элементов в массиве: ',k); end.