Вопрос по информатике:
Ввести строку из текстового файла. Продублировать в ней все цифры. Остальные символы оставить без изменения. PascalABC.Net
(Продублировать это значит приписать к каждой цифре справа такую же)
- 14.07.2015 18:38
- Информатика
- remove_red_eye 11566
- thumb_up 49
Ответы и объяснения 1
Var
f:text;
i,n:integer;
s,s1:string;
begin;
assign(f,'text.txt');
reset(f);
while not(Eof(f)) do
read(f,s);
close(f);
n:=0;
while nlength(s) do
begin;
inc(n);
for i:=0 to 9 do
begin;
str(i,s1);
if s[n]=s1 then
begin;
delete(s,n,1);
s1:=s1+s1;
insert(s1,s,n);
inc(n);
end;
end;
end;
writeln(s);
end.
- 15.07.2015 10:56
- thumb_up 45
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.