Преобразовать исходную строку, заменив в ней каждую точку многоточием (т. е. тремя точками).

Question

Информатика

Поляша

2 июля, 16:29

Преобразовать исходную строку, заменив в ней каждую точку многоточием (т. е. тремя точками).

+4

Ответы (1)

Знаете ответ на вопрос?

Леруся · Answer 1

Var s1, s2:string; n, m:byte;

begin

readln (s1) ;

for n:=1 to length (s1)

do

begin

s2:=s2+copy (s1, n, 1) ;

if copy (s1, n, 1) = '.'

then

begin

s2:=s2+' ... ';

end;

end;

writeln (s2) ;

end.

Вот так