Показать сообщение отдельно
Старый 21.12.2014, 16:15   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
По умолчанию

var s:string;
i,k,p:integer;
begin
Writeln('String : '); Readln(s);
k:=0; p:=0;
for i:=1 to Length(s) do
if s[i]='к' then Inc(k)
else
if s[i]='р' then Inc(p);
Writeln;
Writeln('k = ',k);
Writeln;
Writeln('p = ',p);
Readln;
end.
Евгений вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070