Quote (gunjubas)
Напечатать заданный непустой текст: - удалив из него все цифры и удвоив знаки "+"и ”-”;
Code
var s : string;
i : integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do if (s[i]='+')or(s[i]='–') then write(s[i],s[i])
else if (s[i]<'0')or(s[i]>'9') then write(s[i]);
writeln
end.
Quote (gunjubas)
- удалив из него все знаки "+ непосредственно за которыми идет цифра;
Code
var a, b : char; {a – очередная литера строки, b – следующая}
s : string;
i : integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
begin
a:=s[i];
if a<>'+' then write(a)
else if i<'0') or (b>'9') then write(a)
end
else write(a);
end;
writeln
end.
Quote
- удалив из него все буквы b, непосредственно перед которыми находится буква c;
Code
Var
s:string;
i,l:integer;
begin
readln(s);
for i:=2 to length(s)+1 do
if s[i]='b' then
begin
l:=i;
if s[i-1]='c' then
delete(s,l,1);
end;
write(s);
end.