Почему программа в Паскале не видит "." в программе:
program lolipops;
var s:string;
n,k,i:integer;
begin
writeln ('Введите слово');
readln (s);
I:=1;
While i<=length(s) do begin
If s[i]='.' then
k:=k+1;
end;
writeln (k);
end.

Ты говоришь:пока i < длины строки S делай:если S с индексом i = "." то k++ВсеТы не меняешь "i", он у тебя всегда 1й элемент смотрит)Как должно быть:------------------While i<=length(s) do beginIf s[i]='.' thenk:=k+1;inc(i);end;----------------------