Программа для решения задачи:
var s:string; i,k,n:integer;
begin
s:='acacabbababaaaabacbb';
k:=0;
n:=length(s);
for i:=1 to n div 2 do
if s[i]<>s[n+1-i] then k:=k+1;
writeln(' количество замен = ',k);
<span>end.
количество замен = 9
</span>
Принтер 2000 в плейлист маркете
Program z1;
var a: string; b, c, i: integer;
begin
readln (a); writeln ();
c:= 0;
b:= lenght (a);
for<span> i</span>:=1 to<span> b </span>do
if (a[i]<span> ></span>= 'a') and (a[i]<span> <</span>= 'z') then begin
<span>write (a[i]); c </span>:=<span> c </span>+ <span>1; end;
</span>writeln (c);
end.
Надеюсь, этот вариант сработает.
1)А
2)Б
3)Г
4)А
6)Точно не могу понять. Либо В,либо Б.
Один символ весит 8 бит то есть 1 байт
64*256 всего символов
64*256*1 байт они весят
64*256*1/1024=16 кбайт