Решение задичи на Паскале

[Tekmessa]

Задача:
В строке удалить указанный (определенный) символ С.
Просмотрела кучу сайтов, но такой задачи не нашла... Видимо потому что простая, но я в Паскале полный ноль(((( Иначе бы не обратилась... Кто может помогите пожалуйста!!!!

[Arigato]

Ну и где решение?

[ROMA2PVT]

uses
  crt;
var
  i: integer;
  c: char;
  st: string;
begin
  clrscr;
  write('Введите строку: ');
  readln(st);
  write('Введите символ: ');
  readln(c);
  i:=pos(c,st);
  delete(st,i,1);
  write(st);
  readkey;
end.

Вот держите.

[Grag]

И что? Удалил один символ в строке и успокоился? А если их несколько одинаковых?

[ROMA2PVT]

А в задании разве сказано удалить все символы (если они одинаковые). Сказано удалить любой символ.

[Grag]

Takmessa писала

Задача:
В строке удалить указанный (определенный) символ С.

Задачу нужно рассматривать в общем плане,а не в частности...

while Pos(c,st)<>0 do
  delete(st,Pos(c,st),1)

[ROMA2PVT]

Эт проблемы учителя который даёт задание.Раз он не может сформулировать его нормально.

[Tekmessa]

Grag прав, нужно все символы С из строки удалить....

[Tekmessa]

Спасибо большое)))

[_-Re@l-_]

Как с помощью цикла while do найти сумму цифр данного числа?