В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
masha200012315563
masha200012315563
28.08.2022 18:13 •  Информатика

Паскаль. ошибка: индекс находился вне границ массива. выполняю на счёт слов из двух букв. сама программа: 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.

Показать ответ
Ответ:
matveyxhi
matveyxhi
16.07.2020 23:02
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота