Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *. ( Паскаль)

Ответ оставил Гость

Var s,s1:string;k:char;i:integer;
begin
readln(s);
readln(k);
s1:=;
for i:=1 to length(s) do
if s[i]<>k then s1:=s1+s[i]+s[i];
writeln(s);
writeln(s1);
readln;end.