Составьте программу, которая заменяет букву "а" на букву "б" и наоборот в данной символьной строке, написанной всеми заглавными и стройными буквами. При вводе строки "оглваоОГЛВАО" результат должен быть в виде "головаГолова" бедному школьнику

2^i = 24

i = 5

ответ. 5 лампочек.

375 киболайт = 375 * 1024 * 8 = 3072000 бит

3072000 : 128000 = 24 с

ответ. понадобится 24 с.

var slovo,simval: string; i,k: integer; begin k: =0;   write('введите имя и фамилию '); readln(slovo); write('введите символ '); readln(simval); for i: =1 to length(slovo) do begin if slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 then  writeln('да, встречается ',k,' раз, на позиции ',i)else writeln('нет'); end.

я немножко перевыполнил) от показывает есть симаол или нет, если есть то сколько раз он входит и на какой  

var n,z: longint;

begin

  read(n);

  z: =abs(n);

  z: =z-2;

  writeln(z);

end.