Const n=15;
var a: array[1..n] of integer;
i:integer;
begin
for i:=1 to n do begin a[i]:=random(10); write(a[i], ' '); end;
writeln;
for i:=1 to n do if a[i]=4 then write('A[',i,']', ' ');
<span>end.</span>
3 Кб=3*1024=3072 байт
4 Мб=4*1024 кбайт=4*1024*1024 байт=2*1024*1024*8 бит=16777216 бит
16384 бит=16384/8=2048 байт
2048 байт=2048/1024=2 Кбайт
15400 байт=15400/1024=(приближ)15 кб (=1925/128)
<em>Решение:</em>
<em>1 - В</em>
<em>2 - С</em>
<em>3 - А</em>
<em>4 - E</em>
<em>5 - D</em>
var
inStr, outStr : string;
i : integer;
begin
outStr := '';
ReadLn(inStr);
for i := 1 to Length(inStr) do
<span> if </span>inStr[i] <> '+' then
outStr := outStr + inStr[i] + inStr[i];
WriteLn(outStr);
end.
1АКЛМ по возрастанию 2МЛКА наоборот по уменьшанию 3МАЛК это большое маленькое большое маленькое 4АМКЛ наоборот маоенько большое маленькое большое Ас буквой М получается 2 хоть я и в 5 классе и у меня нет информатики надеюсь правельно ответил