Uses crt;
const max=100;
var a: array [1..max] of real;
i,n:integer;
begin
clrscr;
write('Zadajte razmernost massiva');
readln(n);
writeln('Ishodnij massiv:');
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7:2);
end;
writeln;
writeln('Novij massiv:');
for i:=1 to n do
begin
if (i mod 2)<>0 then
a[i]:=sqrt(a[i]);
write(a[i]:7:2);
end;<span>
end.</span>
на скриншоте
====================================
<span><span>I
<span> 1</span></span><span>
V
<span> 5</span>
</span><span>X
<span> 10</span>
</span><span>L
<span> 50</span>
</span><span>C
<span> 100</span>
</span><span>D
<span> 500</span>
</span><span>M
<span> 1000</span></span></span>
Ответ: 1648.
1985 год выпуска, переводим и получаем:
110011000101
Ответ: 6 единиц
Количество последовательностей будет равно количеству двоичных чисел, которые можно записать с помощью 5 символов:
2^5=32