Почему программа в Паскале не видит "." в программе:
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.
Ответы
Ответ дал:
0
Ты говоришь:
пока i < длины строки S делай:
если S с индексом i = "." то k++
Все
Ты не меняешь "i", он у тебя всегда 1й элемент смотрит)
Как должно быть:
------------------
While i<=length(s) do begin
If s[i]='.' then
k:=k+1;
inc(i);
end;
----------------------
пока i < длины строки S делай:
если S с индексом i = "." то k++
Все
Ты не меняешь "i", он у тебя всегда 1й элемент смотрит)
Как должно быть:
------------------
While i<=length(s) do begin
If s[i]='.' then
k:=k+1;
inc(i);
end;
----------------------
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад