Цикл с заданным условия продолжения работы (цикл пока,цикл с предусловием,блок-схема и алгоритм)​

PascalВыделить код1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 uses crt; var s,s1:string;     c:char;     i,j,k:byte; begin writeln('Введите строку'); read(s); s1:=s;{сделаем копию строки, если строка не нужна, то можно и не делать} i:=1; while i<length(s1) do  begin   c:=s1[i];{запомним символ}   k:=0;   for j:=length(s1) downto i+1 do{с конца строки ищем такие же}   if s1[j]=c then{если есть}    begin     k:=1;{фиксируем}     delete(s1,j,1);{удаляем}    end;   if k=1 then delete(s1,i,1){если не один, удаляем}   else i:=i+1;{иначе проверяем следующий}  end; writeln('Символы по 1 разу'); if s1='' then write('Таких символов нет') else write(s1); end.

// 15.

  int x = 1;

           if ((x - 1) < 1)

           {

               Console.WriteLine(1);

           }

  else if ((x - 1) == 1)

           {

               Console.WriteLine(0);

           }

  else

               Console.WriteLine(-1);

           

  // 14.

  double y = 13;

  if (y < 0.1)

  {

   Console.WriteLine(Math.Sqrt(0.2 * y - y - 0.1));

  }

  else if (y > 0 && y != 1)

  {

   Console.WriteLine((Math.Sqrt(y))/y-0.1);

  }

  else if(y == 0.1)

               Console.WriteLine(0);

Предполагаю что так

Если немного не так (методами) то пиши , исправлю )