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

Question

Информатика

Евдя

27 апреля, 21:31

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

+5

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

Вот так