1.
Var m : array[1..9] of Real;
i : Integer;
Begin
For i:=1 to 9 do Readln(m[i]);
For i:=9 downto 1 do Write(m[i],' ');
Writeln;
end.
2.
Var m : array[1..20] of Integer;
i : Integer;
Begin
Randomize;
For i:=1 to 20 do
Begin
m[i]:=-9+Random(29);
If m[i]<0 then m[i]:=-m[i];
end;
For i:=1 to 20 do Write(m[i],' ');
Writeln;
end.
#include <bits/stdc++.h>
using namespace std;
int main()
{
int n;
setlocale(LC_ALL,"Russian");
cin >> n;
if ( n > 0 )
cout << "Положительное\n";
else
cout << "Отрицательное\n";
n = abs(n);
int ans = 0;
while (n)
{
n /= 10;
ans++;
}
cout << ans << " цифр\n";
}
Для начала найдём мощность алфавита i
выразим i
теперь найдём количество информации I
I = K*i = 1024 * 768 *18 = <span>14155776 бит
переведём биты в наибольшую единицу измерения
</span>14155776 / 8 / 1024 / 1024<span> = </span><span>1,6875 мб.</span>