Паскаль. ошибка: индекс находился вне границ массива. - вопрос №3499541 от pugovka2017 10.08.2022 21:47

Question

Информатика: Паскаль. ошибка: индекс находился вне границ массива. выполняю на счёт слов из двух букв. сама программа: program ss; var s: string; var i,k: integer; begin k: =0; readln(s); s: =s+ ; repeat i: =pos( ,s); if i 1 then if (s[i+1] ) and (s[i+2] ) and (s[i+3]= ) then k: =k+1; delete (s,1,i) until s= ; writeln(k, slov ); readln; end.

pugovka2017 · Answer

Program ss;var  s: string;  i, k: integer;begin  Readln(s);  s := s + ; k := 0;  repeat    i := pos( , s);    if i = 3 then k := k + 1;    if i 0 then delete(s, 1, i)  until i = 0;  Writeln(k, slov );  Readln;end....