Задача №1 Составить программу проверяющую является ли слово "перевертышем"

 

Задача №2 Подсчитать каких букв в предложении больше "а" или "е"

 

все в паскале

var  S:string;  i:integer;begin  write('S = ');  readln(S);  for i := 1 to Length(S) do    if S[i] <> S[Length(S) - i + 1] then    begin      writeln('No');      readln;      Exit;    end;  writeln('Yes');  readln;end.

//вторая программа

var  S:string;  i, countA, countE:integer;begin  CountA := 0;  CountE := 0;  write('S = ');  readln(S);  for i := 1 to Length(S) do    if S[i] = 'a' then      inc(countA)    else      if S[i] = 'e' then        inc(countE);  if countA > countE then    writeln('a > e')  else    if countA < countE then      writeln('a < e')    else      writeln('a = e');  readln;end.