Program primer; var f: text; i, j, h: byte; l, k: smallint; s, s1, s2, m: string; begin assign(f, 'F.txt'); {путь к файлу} reset(f); read(f, s); s := ' ' + s + ' '; close(f); writeln('укажите 2 слова через строчку'); readln(s1); readln(s2); i := 0; j := 0; m := s; k := 1; while k <> 0 do begin k := pos(' ' + s1 + ' ', m); if (k <> 0) then inc(i); delete(m, 1, k + length(s1)); end; k := 1; m := s; while k <> 0 do begin k := pos(' ' + s2 + ' ', m); if (k <> 0) then inc(j); delete(m, 1, k + length(s2)); end; m := s; k := 1; h:=0; while (k <> 0) or (l <> 0) do begin k := pos(' ' + s1 + ' ' + s2 + ' ', m); l := pos(' ' + s2 + ' ' + s1 + ' ', m); if (k <> 0) or (l <> 0) then inc(h); delete(m, 1, k + l + length(s2 + s1) + 1); end; writeln('количество слов соответствующих первому = ', i); writeln('количество слов соответствующих второму = ', j); writeln('непосредственно друг за другом х', h); end.
Прога написанная в CodeBlocks: #include <iostream> using namespace std; int main() { setlocale(LC_ALL,"Russian"); int a[20]; int b, c, i, q=0; for(i=1; i<21; i++) { cout<<"Введите "<<i<<" число: "; cin>>a[i]; } cout<<"Введите начальный номер элемента массива: "; cin>>b; cout<<"Введите конечный номер элемента массива: "; cin>>c; for(int j=b; j<c+1; j++) { q+=a[j]; } cout<<"Cумма элементов массива с номерами с "<<b<<" по "<<c<<" равна: "<<q; } Я надеюсь тебе была нужна прога на С++))
ответ: 20.