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

Question

Информатика

Корнелия

2 января, 09:10

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

+1

Ответы (1)

Знаешь ответ?

Домна · Answer 1

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.