Ответ:
95.625 КБ
Объяснение:
Пусть символ компьютерного алфавита весит 1 байт. Вычислим количество символов в сообщении.
34 * 60 * 48 = 97920
Сообщение весит 97920 байт = 95.625 КБ.
<em>VAR</em>
<em> s: String;</em>
<em> s1,s2,i: LongInt;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em />
<em> s1 := 0; s2 := 0;</em>
<em> for i := 1 to Length(s) do begin</em>
<em> if (s[i] = s[1]) then Inc(s1);</em>
<em> if (s[i] = s[Length(s)]) then Inc(s2);</em>
<em> end;</em>
<em />
<em> if (s1 > s2) then Write('Первая буква');</em>
<em> if (s1 < s2) then Write('Последняя буква'); </em>
<em> if (s1 = s2) then Write('Равное количество раз.'); </em>
<em>END.</em>
1. 111111 - 77 - 63 - 3F
2. 1001001 - 111 - 73 - 49
3. 1 0000 0000 - 400 - 256 - 100
4. 10101010 - 252 - 170 - AA
Var a:array[1..10] of longint;
n,i,b:integer;
f:boolean;
Begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
repeat
f:=true;
for i:=2 to n do
if a[i-1]>a[i] then Begin
b:=a[i-1];
a[i-1]:=a[i];
a[i]:=b;
f:=false;
end;
until f;
for i:=1 to n do write(a[i]:5);
end.