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

Question

Информатика

Кириллична

30 октября, 15:17

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

+3

Ответы (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.