Дан текст. Определить количество букв "К". По правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране. ДАЮ 80 БАЛЛОВ!
Дан текст. Определить количество букв "К". По правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране. ДАЮ 80 БАЛЛОВ!
Гость
Ответ(ы) на вопрос:
Гостьvar s:string;
k:integer;
begin
k:=0;
s:='По правилам машинописи после знаков препинания этих ошибок в тексте, полученную после исправления строку показать на экране.';
while pos('к',s)<>0 do
begin;
delete(s,pos('к',s),1);
inc(k);
end;
writeln(k);
end.
Ответ:6
Не нашли ответ?
Похожие вопросы