№ 1.
2^i = N, N = 64
2^i = 64
i = 6 бит
1280 * 6 = 7680 бит
7680 : 8 = 960 байт
№ 2.
38912 бит : 8 = 4864 байт
4864 : 1024 = 4,75 Кбайт
№ 3.
3КБайт = 3 * 1024 = 3072 байт
3072 * 8 = 24576
24576 : 6144 = 4 бит приходится на 1 символ
2^4 = 16 символов содержит алфавит
№ 4.
2^i = 8
i = 3 бит приходится на 1 символ
10 * 40 * 5 * 3 = 6000 бит
6000 : 8 = 750байт
Var ar:array[1..10] of integer;
i,s:integer;
begin;
for i:=1 to 10 do
readln(ar[i]);
writeln('OK:');
for i:=1 to 10 do
if (i mod 2=0) and (ar[i] mod 2=0) then writeln(ar[i]);
<span>end.</span>
Var A : Integer;
Begin
A:=123;
Writeln(A div 100+A div 10 mod 10+A mod 10);
end.
Var
k,fk, k20, count: integer;
function F(x: integer): integer;
begin
if x < 3 then
F := 1
else F := F(x - 1) + F(x - 2);
end;
begin
k20:=F(20);
writeln(k20);
count:=-1; {k=20 мы ж вроде должны вычесть}
for k := 3 to 50 do begin
fk:=F(k);
if fk=k20 then count:=count+1;
write(fk,' ');
end;
writeln(count);
end.
функция работает очень медленно потому что это рикурсия. Функция создает последовательность числ фибоначи которые вообщ то не повторяются потому что последовательность возрастающая. Повторения вообщем возможны изза того что integer это не безконечная последовательность, а кольцо, но дождаться результатов при таким образом построенной функции просто нереально