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

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

Задать свой вопрос
Valerij Izoshlov
Более чёткие инструкции можно получить?
1 ответ
Var
   S:string;
   i,L:integer;
Begin
Write('Введите строку: ');ReadLn(S);
i:=1;
L:=Length(S);
While (ilt;=L)and(S[i]lt;gt;':') do
   i:=i+1;
For i:= i+1 to L do
    S[i]:=' ';
Write(S)
End.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт