Вклад нада букву В добавить
Добавляйте качественное вложение у 1 птицы видны только ноги)))
1 страус,2 пеликан,3 пингвин,4 попугай
птица НЕ плавает 1,4
птица плавает И летает 2
птица летает ИЛИ плавает 2,3,4
птица плавает И НЕ летает 3
птица летает И НЕ плавает 4
птица НЕ летает И НЕ плавает 1
Команда x:=4 присваивает переменной x значение 4
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.
<u>Пример:</u>
abazaba
aabaazaabaa
Кол-во "z" в слове: 1
Это палиндром