read(S);
number:=0;
for i:=1 to length(S)-1 do
if (S[i]='c') and (S[i+1]='k') then number:=number+1;
write('Число сочетаний ck', number);
end.
Это ж где такие легкие курсовые пишут? Я тоже хочу там учиться )))...
Добрый день. Меня заинтересовал ваш ответ "var
S:String;
i,number:integer;begin
read(S);
number:=0;
for i:=1 to length(S)-1 do..." на вопрос http://www.liveexpert.org/topic/view/79799-infor-ka. Можно с вами обсудить этот ответ?