Строка

[Стасссс]

дана строка размером 50. Получить новую строку из первоначальной строки, без точек. уважаемые программисты нуждаюсь в вашей помощи

[Стасссс]

Я не знаю как точку удалить...... помогите

[Levsha100]

Program z1;
var
S1,S2:string;
i:integer;
begin
 ReadLn(S1);
 S2:='';
 for i:=1 to 50 do
  if S1[i]<>'.' then
   S2:=S2+S1[i];
 WriteLn(S2);
 ReadLn;
end.

[Sazary]

Я не знаю как точку удалить...... помогите

пусть точка в позиции k из строки s.
Удаляем точку:

delete(s,k,1);

[ViNcHeStEr]

Если в Delphi, то вот так:

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=edit1.Text;
edit1.Clear;
for i:=1 to length(s) do begin
c:=s[i];
if c='.' then begin
c:=' ';
end;
edit1.Text:=edit1.Text+c;
end;
end;

[Levsha100]

Сообщение от Sazary

пусть точка в позиции k из строки s.
Удаляем точку:

delete(s,k,1);

Дополню
Позицию точки можно найти с помощью функции POS.