Считая ,что каждый символ кадирует 1 байт,оцените информационный объем следующего предложения в кодирование - id772356420210106 от marinakulkova1 06.01.2021 04:42

Question

Информатика: Считая ,что каждый символ кадирует 1 байт,оцените информационный объем следующего предложения в кодирование кои-8:

marinakulkova1 · Accepted Answer

var

n, max, count, contrl, max2: integer;

begin

contrl := 0;

max := 0;

Writeln('Введите числа: ');

Readln(n);

while n <> 0 do

begin

Inc(count);

if n>max then begin max2:=max; max:=n end

else if n > max2 then max2 := n;

Read(n);

end;

max2*=max;

Writeln('Введите контрольное значение: ');

Read(contrl);

Writeln('Получено: ', count, ' чисел');

Writeln('Получено контрольное значение: ', contrl);

Writeln('Вычисленное контрольное значение:: ', max2);

if contrl = max then Writeln('Контроль пройден')

else Writeln('Контроль не пройден');

end.

Считая ,что каждый символ кадирует 1 байт,оцените информационный объем следующего предложения в кодирование кои-8: < >