Строки Опции

[cxt]

Помогите решить
Сколько букв "у" в строке стоит на четном месте

Код

program xxx;
var s1:string[20];
n,q:integer;
begin
q:=-1;
Writeln('Введите слово');
read(s1);
n:=pos('y',s1);
if n>0 then begin
repeat
n:=pos('y',s1);
q:=q+1;
delete(s1,n,1);
until n=0;
end
else
q:=0;
writeln('Кол-во y=',q);
end.

Помогите зделать чтобы программа считала сколько стоит на четном месте.

Поиском пользовался...

[volvo]

Ну а если так:

Код

var
 s1: string[20];
 i, q: integer;
begin
 Write('Введите слово: '); readln(s1);
 q := 0;
 for i := 1 to length(s1) do
   if (s1[i] = 'y') and (not odd(i)) then inc(q);
 writeln('Кол-во y=',q);
end.

и исходная строка не меняется... А то в предыдущей-то программе после удаления каждой буквы четность меняется, зачем это нужно...

[cxt]

volvo

Твоим кодом заметить ?

Код

n:=pos('y',s1);
if n>0 then begin
repeat
n:=pos('y',s1);
q:=q+1;
delete(s1,n,1);

[volvo]

Я привел программу полностью. Смотри мой предыдущий пост ...

[cxt]

Спасибо :molitva: