Решите 98 , язык любой напомним, что cтрока b = , является подпоследовательностью строки a = , если существует строго возрастающая последовательность {i1, i2, i3, , im} индексов a, такая, что для всех j от 1 до m выполняется aij=bj. например, b = ”aba” является подпоследовательностью строки a = ”abacaba”. последовательность индексов в этом случае может быть такой: {1, 2, 3}. пусть вам дана строка s, состоящая только из маленьких букв алфавита. ваша заключается в том, чтобы посчитать количество ее подпоследовательностей “abc”. входные данные входной файл input.txt содержит строку s, длиной не более 105 символов. выходные данные в выходной файл output.txt выведите ответ на .

Program primer; var f,g: text;     i,n,k: integer;           s,a,data: string;       begin assign(f,'f.txt'); assign(g,'g.txt'); rewrite(f); writeln('кол-во книг? '); readln(n); for i: =1 to n do begin writeln('фамилия автора, название и год издания книги № ',i,' ? '); readln(s); writeln(f,s);   // в фаил f забиваем данные end; close(f); writeln('укажите автора для поиска '); readln(a); rewrite(g); reset(f); for i: =1 to 2 do begin readln(f,s); if (pos(a,s)< > 0) then begin   //ищем автора data: ='';   for k: =length(s) downto 1 do begin              if (s[k]=' ') then begin                      data: =data+copy(s,k+1,length(s));         //смотрим дату                       break;                       end;                           end;                     end; if (strtoint(data) > = 1980) then writeln(g,s);   //сравниваем дату  end; close(f); close(g); end. abc pascal

Const nx=30; var i,j,n,max,sum: integer; a: array[1..nx,1..nx]of integer; begin max: =-100; write('введите количество элементов n'); readln(n); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: = random(25)-15; write(a[i,j]: 4); end; writeln; end; for i: =1 to n do begin for j: =1 to n do begin if (i> n-j) and (i > = j)then begin if max < a[i,j] then max : = a[i,j]; sum: = sum + a[i,j]; write(a[i,j]: 4); end else write(' ': 4); end; writeln; end ; write('max =',max: 4,'   sum =',sum: 4); end.