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

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

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

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

Информатика

Антип

15 ноября, 13:52

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

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

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

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.

+5

Ответы (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.