var
B: array [1..14] of Real;
i: Integer;
s: Real;
begin
Randomize;
WriteLn ('Mассив:');
for i := Low (B) to High (B) do begin
B [i] := Random (100) - 50;
Write (B [i]:5:2, ' ');
end;
s := 0;
for i := Low (B) to High (B) do begin
if B [i] > 0 then
s := s + B [i];
end;
WriteLn;
WriteLn ('Сумма положительных элементов массива = ', s:5:2);
end.
I=1,5 Кб=1,5*1024*8 бит
I=k*i
i=?
N=?
N=2^i
I=k*i
1,5*1024*8=3072*i
i=(1,5*1024*8)/3072=4 бита
N=2^4=16 символов
Ответ: 16
(C#)
N=Console.Read();
Console.Write(N);
N=N-2//на случай если N=2 или 1
while(N>3)
{
N=N-2
Console.Write(N);
}
4) 1
5) 2
(3) возможно 2/3/4)