Составить программу в pascal abc ,которая из заданной - вопрос №381551 от Youseee 22.08.2021 11:48

Question

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

Youseee · Answer

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....