Составить программу в pascal abc ,которая из заданной строки получала бы новую строку ,удалив все "#" и повторив каждый символ ,отличный от знака решотка дважды. вывести на экран ,полученную новую строку.
voVIK2008
2
19.03.2019 03:50
1
Другие вопросы по теме Информатика
AZAZA2008
15.11.2020 20:42
ektgdb
15.11.2020 20:43
sgagasik
15.11.2020 20:44
Zazasalka174
15.11.2020 20:44
ivandawidov
15.11.2020 20:44
ksusha290
15.05.2020 12:19
Apple6pen
19.10.2019 14:31
fonato
19.10.2019 12:34
HelpMePzhalsta
06.09.2019 16:50
Популярные вопросы
- Внаслідок енергетичного обміну енергія...
3 - Внеси множитель под знак корня, зная, что переменная принимает неотрицательные...
3 - 1. Функції держави – це: а) соціальне призначення держави; б) напрямки...
2 - Крайние точки точильного диска радиусом 10 см вращаются со скоростью 10...
1 - Составьте предложения по данным схемам (предложения могут быть как нераспространённые,...
3 - Заполните пропуски в следующих глаголов....
3 - У піснях літературного походження слова й музику створюють одночасно так...
1 - В истекшем году предприятие по выручке моющих средств выручило за свою...
2 - постройте все (фигура оранжевая для построений) и прикрепите фото ,очень...
2 - Дати письмову відповідь( на прикладі творчості Ніколо Паганіні ,, Ф.Ліст)...
3
var a:string;
i,j:integer;
begin
readln(a);
while pos('#',a)<>0 do delete(a,pos('#',a),1);
for i:=1 to length(a) do
for j:=1 to 2 do
write(a[i]);
end.