Имеется шесть насителей информации, для которых объёмы указаны в разных еденицах измерения.носители пронумерованы и рядом с каждым номером представлен объём насителей. найдите пару носителей с одинаковым объёмом. 1.117440516бит 2.14338кбайт 3.14680068байт 4.117440512 бит 5.14680060 байт 6.14 мбайт

117440512 бит и 14 мегабайт

1const n = 100; var a: array[1..n] of word; i, m: byte; sum: word; begin write('kol-vo chisel: '); readln(m); sum: =0; for i: =1 to m do     begin     a[i] : = i;     write(a[i]: 4);     sum: =sum + sqr(a[i])*a[i];     end;     writeln;     writeln('sum = ', sum: 4);   readln; end. 2 constn = 100; vara: array[1..n] of word; i, dn: byte; km: real; beginwrite('kol-vo dney: '); readln(dn); km: =7; for i: =2 to dn do    km: =km+(km+1.5); writeln; writeln('turisty proshli ', km: 4: 1, ' km'); readln; end.

Var x, temp, p, a, original: integer; found: boolean; begin found: =false; //переменная примет значение "истина" тогда, когда число а будет найдено в цифрах первого числа writeln('введите натуральное число"); readln(original); writeln('введите число a'); readln(a); x: =original; p: =1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю) while x> 0 do                      //пока x болльше нуля   begin       temp: =x mod 10;         //заносим последнюю цифру числа x в переменную temp       if temp=a then found: =true; //если цифра числа равна a, то помечаем, что нашли ее       p: =p*temp;                   //домножаем произведение на цифру       x: =x div 10;               //отбрасываем последнюю цифру числа через целочисленное деление   end; writeln('произведение цифр числа ' + original + ' равно ' + p); if found then writeln('цифра' + a + ' есть в исходном числе ' + original) else writeln('цифра ' + a + ' отсутствует в оригинальном числе ' + original) end;