Составить программку в Pascal ABC ,которая из данной строчки получала бы

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

Задать свой вопрос
1 ответ

var a:string;
i,j:integer;
begin
readln(a);
while pos('',a)lt;gt;0 do delete(a,pos('',a),1);

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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт