Паскаль. ошибка: индекс находился вне границ массива. выполняю на счёт слов из двух букв. сама программа: 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.
karinasarova95
2
21.06.2019 09:30
0
Другие вопросы по теме Информатика
sapunovegor22
05.10.2019 22:40
cerf1709
05.10.2019 22:40
LediLizonka
05.10.2019 22:40
джопер
05.10.2019 22:40
Skuzairov
23.02.2021 01:35
ruslansuxenco3
23.02.2021 01:34
timdenir69
23.02.2021 00:51
grexegor
23.02.2021 00:23
какм1
23.02.2021 00:19
Популярные вопросы
- Катер проплыл 148.5 км между двумя пристанями по течению реки за...
1 - Какие правила письма спрятались в словах кольца-кольцо-колечко...
1 - Реши уравнение и проверь его корень (с-3)*12=20-4(с+2)...
1 - 4м 25 см + 9 дм 5 см 58 дм + 1 м 29 см 3 м 72 см + 24 дм 9 см 2...
1 - Представь себе, что ты- депутат государственной думы.какой закон...
3 - Самолет вылетел из аэропорта ( 2 часовой пояс) в аэропорт (5 час.пояс),...
3 - Укажите время глаголов, выделите их окончания. 251. звёзды меркнут...
2 - Кто может на двух грузовиках 2 т 880 кг муки в одинаковых по массе...
1 - Надо составить текст-рассуждениена ему кем я хочу быть и почему...
2 - Рассчитать массу p₂o₅, который образуется при взаимодействии p...
2
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.