Дана строка. Преобразовать ее, удалив каждый символ * и повторив каждый символ, отличный от *. ( Паскаль)
Ответы
Ответ дал:
5
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.
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.
Вас заинтересует
10 месяцев назад
10 месяцев назад
1 год назад
6 лет назад
7 лет назад