Из заданной строки получить новую строку, заменив в ней все группы букв «abcd» на «abc».новую строку переписать в файл.pascal/

12 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 #include < string.h>   #include < iostream.h>   int main()   {     char st[100], sl[100],s[20][20]={'\0'}; int k=0, i,t=0,j; cin> > st;   cout< < endl;     t=strlen(st);     i=-1;   do   {++i;         if(st[i]=='a' & & st[i+1]=='b' & & st[i+2]=='c' & & st[i+3]=='d')         {               for( j=i+3; j< t-1; j++)                 st[j]=st[j+1];             t--;         }           }while(st[i]! ='\0');           for( j=0; j< t; j++)             cout< < st[j]; return 1; }

//pascalabc.net 3.0 begin   var a : = arrrandom(24, 3, 76);   writeln('затрачиваемое учениками время: ');   a.println;   writeln('среднее время: ', a.average : 0 : 2); end. //fpc / turbo pascal var   a, i, sum: integer; begin   writeln('затрачиваемое учениками время: ');   for i : = 1 to 24 do   begin       a : = random(74) + 3;       sum : = sum + a;       write(a, ' ');   end;   writeln;   writeln('среднее время: ', sum / 24 : 0 : 2); end.

Var   i, j, m, n: integer;   a, b: array[0..9] of boolean;   begin   for i : = 0 to 9 do a[i] : = true;   write('введите количество чисел: ');   read(m);   write('введите числа: ');   for i : = 1 to m do   begin       for j : = 0 to 9 do b[j] : = false;       read(n);       if n = 0 then a[0] : = true;       while n < > 0 do       begin           b[n mod 10] : = true;           n : = n div 10;       end;       for j : = 0 to 9 do a[j] : = a[j] and b[j];   end;   for i : = 0 to 9 do if a[i] then write(i, ' '); end.