Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *. ( Паскаль)
Answers & Comments
Mashenkamizani
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.
Answers & Comments
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.