Подсчёт количества пробелов и замена буквы на запятую - Pascal

Формулировка задачи:

Дан текст состоящий из слов разделённый пробелами. Подсчитать количество пробелов в тексте. Заменить букву P на запятую. Напечатать исходный n и полученный текст.

Код к задаче: «Подсчёт количества пробелов и замена буквы на запятую - Pascal»

textual
var
  i, k: integer;
  s: string;
 
begin
  readln(s);
  k := 0;
  for i := 1 to length(s) do
  begin
    if s[i] = ' ' then 
      inc(k);
    if s[i] = 'P' then 
      s[i] := ',';
  end;
  writeln('Пробелов: ', k);
  writeln(s);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

7   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ