Developing.ru

Еще хотел спросить, вот задача:
Даны натуральное число n, символы S1,...,Sn, среди которых есть хотя бы одна точка. Преобразовать последовательность, удалив из нее все запятые, предшествующие первой точке, и заменив знаком ' т ' все цифры ' 3 ' , встречающиеся после первой точки.

Мне помогли решить ее:

Var N,i:integer;
S,t:string;
C:char;
X:label;

Begin
Readln(s);
N:=length(s);
For I:=1 To N
Begin
If S='.' Then
Begin
T:=i;
Goto X;
End;
X:
For I=1 To T
Begin
If S=',' Then Del S
End;
For I=t To N
Begin
If S='3' Then S='t'
End;
End.

Можно ли решить ее без операторов goto и label? Мы их еще не прошли, поэтому препод не принял задачу.

Вот без goto:
[syntax='Delphi']
program p1;

var
seq,s:string;
N:integer;
PP:integer;
i:integer;

begin
writeln('Введите строку');
readln(seq);
N:=Length(seq);
PP:=pos('.',seq);
for i:=1 to PP do
if seq<>',' then
s:=s+seq;

for i:=PP+1 to N do
if seq='3' then
s:=s+'t'
else
s:=s+seq;

writeln('Результат = ',s);
readln;
end.
[/syntax]

Хм, у меня при вводе {...,.we3} выдает {...,.wet} - вроде все правильно.