строки Опции

[dinni]

помогите пожалуйста решить задачку..!
Дана строка символов, среди которых есть двоеточие (. Определить, сколько символов ему предшествует.
я уже составила прогаммку, но ищу ошибку, помогите мне пожалуйста!!!

var s:string;
i,k:integer;
begin
s:='123:56778';(вводим любое выражение , которое сордержит
for i:=1 to length(s) do begin
k:=0; if (s[i]:=':') then (k:=i-1);
writeln('k=',k);readln;
end;end.

[volvo]

dinni, немного подправляем твой код:

var
  s:string;
  i,k:integer;
begin
  s:='123:56778';
  k:=0; { <--- Это - перед циклом, а не внутри }
  for i:=1 to length(s) do begin
    if (s[i]=':') then k := i-1; { <--- После s[i] не ":=" а просто "=" Скобки тоже не нужны }
  end;
  writeln('k=',k); readln;
end.

Только учти, что если в строке будет несколько ":", то будет выведено число символов перед ПОСЛЕДНИМ из них...