Считая, что каждый символ кодируется одним байтом, определи, чему равен информационный объём следующего - id549910820210828 от A01AA0 28.08.2021 14:31

Question

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

A01AA0 · Accepted Answer

Program task1;
var a, i, kol :integer;
begin
for i:= 1 to 3 do begin readln(a); if a > 0 then inc(kol); end; writeln(kol);
end.

program task2;
var n, result :integer;
function summa (x :integer) :integer; var i, sum :integer; begin for i:= 1 to x do sum:= sum + i; summa:= sum; end;
begin
readln(n); result:= summa(n); writeln(result);
end.

program task3;
var i, n, growth, sum, kol :integer; SrGrowth :real;
begin
readln(n); sum:= 0; kol:= 0; for i:= 1 to n do begin readln(growth); sum:= sum + growth; inc(kol); end; SrGrowth:= sum/kol; writeln(SrGrowth);
end.

program task4;
var l :integer;
begin
readln(l); l:= l div 100; writeln(l);
end.

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

MOGZ ответил