Условие здесь должно быть i >= 0
1 шаг: 3 >= 0 ⇒ true, i=2
2 шаг: 2 >= 0 ⇒ true, i=1
3 шаг: 1 >= 0 ⇒ true, i=0
4 шаг: 0 >= 0 ⇒ true, i=-1
5 шаг: -1 >= 0 ⇒ false
Program StrokABC;
uses Crt;
var d,n,i,k:integer;
s:string;
begin
clrscr;
writeln('Введите n:');
readln(n);
repeat
clrscr;
readln(s);
until length(s)=n;
d:= length(s);
for i:=1 to d do
if (s[i]='a')and(s[i+1]='b')and(s[i+2]='c') then k:=k+1;
writeln('строка abc входит в данную строку ',k,' раз');
readkey;
end.
Нет, например задачи NP - класса 3-SAT и 3-NCF, также задача факторизации за ф-ию от длины. Решение - экспонента, а проверка ответа - линейная(полином)
1 человек не сделал домашнее заданее