Pascal,записи удалить все символы «+», а символы, не являющиеся «+», удвоить
Данилка20022002
1
09.09.2019 11:30
0
Другие вопросы по теме Информатика
olgakorneva1
29.04.2020 14:36
enikolaenko81
29.04.2020 14:35
natalimironenko
29.04.2020 14:35
andreisena4ev
19.10.2020 07:15
SharovaYarosla
19.10.2020 07:15
1аук7
27.07.2019 00:30
zol1981
15.09.2020 04:52
moonlightbiebs13
15.09.2020 23:15
Популярные вопросы
- Как называли крупных землевладельцев в ?...
3 - Сделайте ионное уравнение к которым можно ссделат,...
1 - Як змінилося становище українських селян,в наслідок літовської статути , надо....
1 - Скому не сложно, нужно( 65 ! ) определите массовую долю na2s2o3 в растворе,...
2 - с . мне надо сдать работу из художки, а времени на выполнение нет. буду ....
3 - Примеры использования народных пословиц в и в произведениях писателей хіх века...
3 - Найдите пословицы философского и морально-этического содержания: о назначении...
2 - Четырех угольник авсd, диагонали пересекаются в точке о, вписан в окружность....
2 - 1.краплина. а скляна 2.крапка. б недоречна 3.крапинка. в пухка 4.крапельниця...
2 - Подберите пословицы о крестьянском быте, труде, о различных явлениях природы....
2
var
inStr, outStr : string;
i : integer;
begin
outStr := '';
ReadLn(inStr);
for i := 1 to Length(inStr) do
if inStr[i] <> '+' then
outStr := outStr + inStr[i] + inStr[i];
WriteLn(outStr);
end.