Нужна помощь с задачами

[Александр15]

Нужна помощь с задачами

1) Дана матрица B[N,M].Найти в каждой строке матрицы максимальный и минимальный элементыт и поменять их местами с первым и последним элементом строки соответственно.
2) Составить программу для вычисления 100!-2^100.
3)Дана последовательность символов. Если какой либо символ в ней встречается более трех раз,заменить его на "*" при втором и третьемвхождении.




заранее спасибо!!!

 

[Vladimir_S]

2) Составить программу для вычисления 100!-2^100.

Преподы-шутники, блин...

 

[Vladimir_S]

3)Дана последовательность символов. Если какой либо символ в ней встречается более трех раз,заменить его на "*" при втором и третьем вхождении.

Ну что же - подобно многим нашим заказчикам, 15 Александров, очевидно, дали страшную клятву не выдавать язык программирования, на котором должно быть выполнено задание, даже под пытками. Рискну, однако, предположить, что подразумевается Паскаль, а не, скажем, Делфи. Если так, то

VAR
 S,C:String;
 i,j,N,k,p:Byte;
 Ch:Char;
BEGIN
 Writeln('Enter the string');
 Readln(S);
 C:='';
 For i:=1 to Length(S) do
  begin
   N:=0;
   Ch:=S[i];
   for j:=i to Length(S) do
    if S[j]=Ch then Inc(N);
   If (N>3) and (Ch<>'*') then
    begin
     p:=Pos(Ch,C);
     If p=0 then
      begin
       C:=C+Ch;
       for k:=1 to 3 do
        begin
         j:=Pos(Ch,S);
         Delete(S,j,1);
         if k=1 then Insert('$',S,j) else Insert('*',S,j);
        end;
       j:=Pos('$',S);
       Delete(S,j,1);
       Insert(Ch,S,j);
      end;
    end;
  end;
 Writeln(S);
 Readln
END.

Единственное ограничение - среди символов исходной строки не должно быть значка $.

 

[Александр15]

О_о я видемо забыл написать что на паскале выполнять,торопился очень ) :tehnari_ru_674:
спасиб за задачу )