Учеба и наука

• Всего ответов: 1


Максим
6-й в Религии
5.0 11 отзывов
var
  S:String;
  i,number:integer;
begin

  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.
Это ж где такие легкие курсовые пишут? Я тоже хочу там учиться )))...
май 12, 2011 г.
Ответ понравился автору
Лучший ответ по мнению автора

Похожие вопросы