Паскаль. Тема множества. Написать программы:

1) в веденной строке удвойте каждое вхождение буквы "а"

2) найти количество всех букв "z" в строке

3) проверить, является ли введённое слово словом-перевертышем, то есть, читается ли оно одинаково справа и слева

Var

s:string;

cnt, i, j:integer;

begin

Readln (s) ;

for i: = 1 to length (s) do

begin

if s[i] = 'a' then write ('a') ;

write (s[i]) ;

if s[i] = 'z' then cnt: = cnt+1;

end;

Writeln;

Writeln ('Кол-во "z" в слове: ', cnt) ;

for i: = 1 to length (s) do

if s[i] s[length (s) - i+1] then begin

Writeln ('Это не палиндром') ;

halt;

end;

Writeln ('Это палиндром') ;

end.

Пример:

abazaba

aabaazaabaa

Кол-во "z" в слове: 1

Это палиндром