Задать функцию показывающуюпорядковый номер запятой в строке.

[s1avjan]

=((((((((((((((((((

[Aristarh Dark]

Это наверное злобная функция pos

function CommaPos(s:string):integer;
begin
CommaPos:=pos(',',s);
end;

[s1avjan]

Не работает=((

[ROMA2PVT]

Var s:string;
k:integer;
function CommaPos(s:string):integer;
begin
CommaPos:=pos(',',s);
end;
begin
readln(s);
k:=CommaPos(s);
writeln(k);
end.

Ага точно!Не работает.Видно с функциями работать неумеешь.

[ROMA2PVT]

Var
s:string;
i:integer;
function CommaPos(K:string):integer;
begin
For i:=1 to length(K) do
 if copy(K,i,1) = ',' then
 writeln(i)
end;
begin
readln(s);
CommaPos(s);
end.

Ну а если номера всех запятых то так вот.

[Aristarh Dark]

Странно, видимо в паскале наоборот стоят параметры

function CommaPos(s:string):integer;
begin
CommaPos:=pos(s,',');
end;

[ROMA2PVT]

Странно, видимо в паскале наоборот стоят параметры.

Да не просто у него руки кривые.