Var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] = 'а') then a[i] := 'и';
writeln(a);
<span>end.</span>
1)v=1/512 Мбайт=1/512*1024*1024*8 бит=16384 бит
i=16384/4096 бит=4 бит
N=2^4=16 символов
Ответ:16 символов
И че дальше я не понял задание
512*256 = 131072 пикселя (2^9 * 2^8 = 2^17 пикселей)
Var
a: array[1..100] of integer;
i,n,c,h: integer;
begin
writeln('Введите кол-во элементов последовательности:'); readln(n);
writeln('Введите последовательность:');
for i:=1 to n do
begin
read(a[i]);
if a[i]<0 then
begin
c:=c+a[i];
h:=h+1;
end;
end;
writeln(c/h);
<span> end.</span>