Тема
:
Строки, задание
Показать сообщение отдельно
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