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

Question

Информатика

Нюраха

28 января, 04:47

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

+4

Ответы (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.