17. В строке заменить все пробелы ** «_», посчитать количество замененных символов....

0 голосов
282 просмотров

17. В строке заменить все пробелы на «_», посчитать количество замененных символов. паскаль


Информатика | 282 просмотров
Дан 1 ответ
0 голосов

Var
  S: string;
  i: integer;
begin
  write('Введите строку:'); readln(S);
  for i := 1 to Length(S) do
    if S[i] = ' ' then S[i] := '_';
  writeln(S);
readln;
end. 


image
(9.4k баллов)