Паскаль. Ошибка: Индекс находился вне границ массива.

Выполняю задачу на счёт слов из двух букв.

Сама программа:

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.

Question

Информатика

Грипа

30 октября, 18:27

Паскаль. Ошибка: Индекс находился вне границ массива.

Выполняю задачу на счёт слов из двух букв.

Сама программа:

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.

+4

Ответы (1)

Знаете ответ?

Гаря · Answer 1

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.