ввести строчку из текстового файла. Продублировать в ней все цифры. Другие
Ввести строчку из текстового файла. Продублировать в ней все цифры. Другие знаки бросить без конфигурации. PascalABC.Net
Задать свой вопрос
Карина Красногор
Продублировать, это означает приписать справа к каждой цифре такую же?
Тимур Лакидо
да
2 ответа
Юрсков
Андрюха
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 nlt;gt;length(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.
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 nlt;gt;length(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.
Есения Юхманова
// PascalABC.NET 3.0, сборка 1128
begin
var s:=ReadAllText('input.txt');
Writeln(s);
var so:='';
for var i:=1 to s.Length do
if s[i] in ['0'..'9'] then so+=s[i]+s[i]
else so+=s[i];
Writeln(so);
end.
Тестовое решение:
Сегодня 15 января 2016 года, столичное время 19 часов 18 минут.
Сейчас 1155 января 22001166 года, московское время 1199 часов 1188 минут.
begin
var s:=ReadAllText('input.txt');
Writeln(s);
var so:='';
for var i:=1 to s.Length do
if s[i] in ['0'..'9'] then so+=s[i]+s[i]
else so+=s[i];
Writeln(so);
end.
Тестовое решение:
Сегодня 15 января 2016 года, столичное время 19 часов 18 минут.
Сейчас 1155 января 22001166 года, московское время 1199 часов 1188 минут.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Облако тегов