Информационной сообщение на языке, первоначально записанное в 8-битовом кобе windows, было перекодировано - id143429620210120 от noeva2005 20.01.2021 16:19

Question

Информатика: Информационной сообщение на языке, первоначально записанное в 8-битовом кобе windows, было перекодировано в 16-битовую кодировку unicode. в результате информационный обьём сообщения стал равен 2 мбайт. найдите количество символов в сообщении.

noeva2005 · Accepted Answer

Program fantscrin;

const n = 10;

Var a: array [1..n] of integer;

i,j,k:integer; s:real;

Begin

for i:=1 to n do

a[i]:=random(20)-10;

for i:=1 to n do

write(a[i], ' ');

for i:=1 to n do

for j:=1 to n-1 do

if (a[j]<a[j+1]) then

begin

k:=a[j];

a[j]:=a[j+1];

a[j+1]:=k;

end;

writeln('');

for i:=1 to n do

write(a[i], ' ');

s:=0;

for i:=1 to n do

if ((a[i] < 0)and(i mod 2=0)) then s:=s+1;

writeln('');

writeln(s);

End.

MOGZ ответил