Составить программу в pascal abc , которая из заданной строки получала бы новую строку , удалив все "#" и повторив каждый символ , отличный от знака решотка дважды. вывести на экран , полученную новую строку.

var a: string; i,j: integer; beginreadln(a); while pos('#',a)< > 0 do delete(a,pos('#',a),1);

for i: =1 to length(a) dofor j: =1 to 2 dowrite(a[i]); end.

Program yrok; var a: integer; begin writeln ('введите месяц'); readln(a); if a=1 then writeln('январь') else if a=2 then writeln('февраль') else if a=3 then writeln('март') else if a=4 then writeln('апрель') else if a=5 then writeln('май') else if a=6 then writeln('июнь') else if a=7 then writeln('июнь') else if a=8 then writeln('август') else if a=9 then writeln('сентябрь') else if a=10 then writeln('октябрь') else if a=11 then writeln('ноябрь') else if a=12 then writeln('декабрь') else writeln('такого месяца нет'); end.

(пишу про язык си/си++) зависит от ситуации.например при создании динамического массива типа char он забивается абсолютно случайными значениями и для их перебора будет лучше присвоить всем элементам такого массива 0 как будто каждый элемент это конец строки (сделать это можно используя функцию после заполнить этот массив буквами (закинуть текст например при std: : cin. и тогда мы сможем перебрать этот массив циклом пример: for (int i = 0; str[i] ! = 0; ++i){} где str[] это динамический массив.еще один случай.иногда вместо простой инициализации переменной нам нужно присвоить ей любое значение (иначе может не скомпилироваться т.к. там будет лежать не понятно что).так же и с единицей.