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

Question

Информатика

Ефрем

25 мая, 02:38

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

+5

Ответы (1)

Знаете ответ?

Леха · Answer 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.