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

atexpro444ggvg atexpro444ggvg    3   02.09.2019 08:10    0

Ответы
glokol glokol  06.10.2020 11:30
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика