Подсчитать количество букв 'f', стоящих на четных местах

@qwertyo · Регистрация: 20.03.2011

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

На вход дается набор символов. Подсчитать количество букв 'f', стоящих на четных местах.
Пример
afff 2
fabc 0

@Высокий · 06.05.2011, 19:59

Pascal

uses crt;
var s: string;
    i,k: byte;
begin clrscr;
write('Ââåäèòå ñòðîêó: ');
readln(s);
for i:=1 to length(s) do
if not (odd(i)) and (s[i]='f') then inc(k);
writeln('Êîëè÷åñòâî f  íà ÷åòíûõ ìåñòàõ: ',k);
readkey
end.

@qwertyo 25 / 25 / 28 Регистрация: 20.03.2011 Сообщений: 150
		1
	Подсчитать количество букв 'f', стоящих на четных местах 06.05.2011, 19:44. Показов 1345. Ответов 1 Метки нет (Все метки) На вход дается набор символов. Подсчитать количество букв 'f', стоящих на четных местах. Пример afff 2 fabc 0 0

Опции темы

Подсчитать количество букв 'f', стоящих на четных местах

Решение