I=1
f=0+1*1=1
i=2
f=1+2*2=5
i=3
f=5+3*3=14
i=4
f=14+4*4=30
i=5 30+5*5=(55)
Set /p a="Name: "
dir %a%
@pause
Насколько я помню, так:)
Первое сообщение
32=2 в степени 5 => 80*5=400 бит
Второе сообщение 64=2 в степени 6 => 70*6=420 бит
400 < 420.
Во втором сообщении информации больше
1_2.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(81)+20;
write(a[i],' ');
end;
writeln;
writeln('Полученный массив:');
for i:=1 to n do
begin
if a[i] mod 2=0 then a[i]:=3 else a[i]:=-3;
write(a[i]:3);
end;
writeln;
end.
Пример:
Исходный массив:
49 25 50 90 82 20 71 25 57 45
Полученный массив:
-3 -3 3 3 3 3 -3 -3 -3 -3
1_3.
const n=10;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(81)+20;
write(a[i],' ');
end;
writeln;
writeln('Полученный массив:');
for i:=1 to n do
begin
if i mod 2=0 then a[i]:=3 else a[i]:=-3;
write(a[i]:3);
end;
writeln;
end.
Пример:
Исходный массив:
85 29 99 27 80 70 70 58 78 46
Полученный массив:
-3 3 -3 3 -3 3 -3 3 -3 3