Ниже записана программа. Получив на вход число x, эта программа печатает два числа, a и b. Укажите наибольшее из чисел x, при вводе которых алгоритм печатает сначала 15, а потом 5
Паскаль
var x, a, b, c: integer;
begin
readln(x);
a := 0; b := 10;
while x>0 do begin
с := x mod 10;
a := a+c;
if c x := x div 10;
end;
writeln(a); write(b);
end.
СИ
int x, a, b, c;
scanf("%d",&x);
a = 0; b = 10;
while (x>0) {
с = x %10;
a = a+c;
if (c x = x /10;
}
printf("%d\n %d",a,b);

Объём информации (он же информационная энтропия) зависит от содержания сообщения. А место, которое оно занимает на двоичном информационном носителе, определяем так:

log2(64) = 6 битов на символ.

Далее зависит от устройства памяти. Под один символ обычно отводится целое число байтов (минимальных адресуемых ячеек). Если так (а в вопросе упоминаются байты), то берём байт из 8 битов, тогда это 1 байт на символ, итого 500 байтов или 0,5 килобайта или около 0,49 КБ.

Если биты выстроены непрерывно, тогда считаем длину сообщения в битах: 6 * 500 = 3000 битов. Делим на 8 (байт), итого 375 байтов или 0,375 килобайтов или около 0,37 КБ.

Const   n = 50; // количество чиселvar   k: array [1..n] of integer;   i, j, n1, n2, minr, a, b: integer; begin   writeln(n, ' ', ': d');   a : = random(1000);   b : = random(1000);   minr : = 10000;   for i : = 1 to n do       k[i] : = a + random(b);   for i : = 1 to n do       for j : = 1 to n do           if ((abs(k[i] - k[j])) < minr) and (k[i] < > k[j]) then           begin               minr : = abs(k[i] - k[j]);               n1 : = i;               n2 : = j;           end;   writeln(n1, ' ', n2); end.