Var
k, c: integer;
begin
k := 1;
for c := 1 to 5 do
if c mod 2 <> 0 then
k := k * c;
writeln(k);
end.
Ответ 15
Int digits[], d,n;
int cnt_min=0; int cnt_max=0;
for(int i=0; i<x; i++) <span>cin >> d;
</span>int d_max = digits[0];
for(int i=0; i<x; i++) { if(d_max < digit[i]) d_max = digit[i];}
int d_min = digits[0];
for(int i=0; i<x; i++) { if(d_min > digit[i]<span>) </span>d_min = digit[i];<span>}
</span>for(int i=0; i<x; i++) { if(d_max < digit[i]) d_max = digit[i];<span>}
</span>for(int i=0; i<x; i++) { if(d_max == digit[i]) cnt_max++;<span>}
</span>for(int i=0; i<x; i++) { if(d_min == digit[i]) cnt_min++;<span>}
</span>cout << "min= " << cnt_min << " max= " << cnt_max << endl;
вторая задача - подумай сам, она почти аналогичная
2/512 Мбайт = 2*1024/512 Кбайт = 4 Кбайта = 4*1024 байт
Память для одного символа = 4*1024/2048 = 2 байта = 2*8 бит = 16 бит.
Мощность алфавита = 2^16 = 65536
1)
11011+101=100000 или 32 в 10
11011-101=10110 или 22 в 10
10101*111=10010011 или 147 в 10
2)
38 = 100110
27=11011