Заменить все пробелы на нули до первой точки

@Cat2010 · Регистрация: 08.10.2010

Студворк — интернет-сервис помощи студентам

Вводится строка символов.Заменить все пробелы на нули до первой точки.

@IVoLution · 15.11.2010, 17:47

Pascal

var
  BaseStr: String;
  i: integer;
begin
  write('Enter the string of characters: ');
  readln(BaseStr);
  for i := 1 to length(BaseStr) do
    begin
      if BaseStr[i]=' ' then BaseStr[i]:='0';
      if BaseStr[i]='.' then break;
    end;
  write('changed row: ', BaseStr);
  readln;
end.

@Cat2010 0 / 0 / 0 Регистрация: 08.10.2010 Сообщений: 14
		1
	Заменить все пробелы на нули до первой точки 15.11.2010, 17:22. Показов 1962. Ответов 1 Метки нет (Все метки) Вводится строка символов.Заменить все пробелы на нули до первой точки. 0

Опции темы

Заменить все пробелы на нули до первой точки

Решение