В строке заменить все символы на пробелы после двоеточия. На паскале
1 комментария:
Более чёткие инструкции можно получить?
Более чёткие инструкции можно получить? Ответы
Гость Var
S:string;
i,L:integer;
Begin
Write('Введите строку: ');ReadLn(S);
i:=1;
L:=Length(S);
While (i<=L)and(S[i]<>':') do
i:=i+1;
For i:= i+1 to L do
S[i]:=' ';
Write(S)
End.
Нет комментариев
Список предметов
