Предмет: Информатика,
автор: marsmag
Преобразовать исходную строку, заменив в ней каждую точку многоточием (т.е. тремя точками).
Ответы
Автор ответа:
0
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.
Вот так
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.
Вот так
Интересные вопросы
Предмет: Математика,
автор: sabinatileubergenova
Предмет: Физика,
автор: zhanym0501
Предмет: Обществознание,
автор: volodina70
Предмет: Химия,
автор: Аноним
Предмет: Алгебра,
автор: кат96