Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

8. • Ввести строку и символ. Вывести строку, полученную из исходной строки удалением всех вхождений этого символа.

86K
09 декабря 2012 года
Никита Иванов
2 / / 09.12.2012
вотт мои наброски, что здесь не правильно???
var s:string;
a:string;
p,i:integer;
begin
read(s);
read(a);
for i:=length(s) downto 1 do
if s=a then
delete(s,i,1);
write(s);
readln;
end.
392
09 декабря 2012 года
cronya
421 / / 03.01.2009
так попробуйте

Код:
var  s, a:string;
     idx, flag:integer;
begin
     writeln('Enter your line: ');
     readln(s);
     writeln('Enter your letter: ');
     readln(a);
     flag:=1;
     while flag = 1 do
     begin
          flag:=0;
          for idx:= 1 to length(s) do
          if s[idx]=a then
             begin
                  delete(s,idx,1);
                  flag:=1;
                  break;
             end;
     end;
     writeln(s);
     readln;
end.
86K
09 декабря 2012 года
Никита Иванов
2 / / 09.12.2012
Спасибо большое!!!!!
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог