Помогите решить задачи по информатике.

А язык то какой?... )
1)
for i:=1 to length(s) do if s[ i]='а' then inc(k) else dec(k);
if k=0 then writeln('Одинаково') else if k<0 then writeln('о больше') else writeln('а больше');
2)
i:=2;
while(i< length(s)) do
begin
if s[ i]='о' then inc(k);
inc(i);
end;
writeln('k букв');
3)
s:='123 213 231 323 1231 231 23 12 131 23 1 23 123 123';
p:='12';
for i:=1 to length(s)-length(p) do if copy(s,i,length(p))=p then inc(k);
writeln(k);
4) c:=s[1];s[1]:=s[length(s)];s[length(s)]:=c;

тут всё очень просто. код вроде нельзя писать в ответах, так что на словах:

1) в цикле, пока существует строка, поэлементно перебираешь, если элемент равен а, то делаешь А++, если о, то О++, после цикла сравниваешь, если А больше О, то выводишь А, если наоборот - О, иначе они равны.
2) цикл. с шагом не 1, как обычно, а 2 (и=и+2) в цикле если элемент равен о - то делаешь О++, после цикла выводишь О.
4) есть функция которая считает длину строки. но если не знаешь ее (как и я, не помню названия) , то создаешь цикл, и пока существует строка делаешь И++, после цикла, делаешь так зам=строка [ 0 ] ; строка [ 0 ] = строка [ И ] ; строка [ И ] = зам. (через 3 переменную) . Выводишь строку.