Сколько букв 'у' в слове стоит на четных местах?

@ploxoi · Регистрация: 20.06.2011

Author24 — интернет-сервис помощи студентам

@asics · 22.06.2011, 12:16

Pascal

cnt := 0;
for i := 1 to length(wrd) do
 if (i mod 2 = 0) and (wrd[i] = 'y') then
  inc(cnt);

@dekk3 · 22.06.2011, 12:29

чет неполучается

@Gxost · 22.06.2011, 14:38

Pascal

var
a,i:integer;
s:string;
begin
a:=0;
readln(s);
for i:=1 to length(s) do
if (i mod 2=0) and (s[i]='у') then inc(a);
end.

go · 22.06.2011, 15:01

Pascal

var
count,i:integer;
s:string;
begin
count:=0;
readln(s);
i:=2;
while i<=length(s) do begin
if s[i]='у' then inc(count);
Inc (i,2)
end;
write ('count= ',count);
readln
end.

@ploxoi 0 / 0 / 0 Регистрация: 20.06.2011 Сообщений: 4
		1
	Сколько букв 'у' в слове стоит на четных местах? 22.06.2011, 11:57. Показов 7387. Ответов 4 Метки нет (Все метки) Сколько букв 'у' в слове стоит на четных местах? 0

@dekk3 0 / 0 / 0 Регистрация: 14.06.2011 Сообщений: 34
	22.06.2011, 12:29	3
	чет неполучается 0

	22.06.2011, 15:01