Что делать если на ноутбуке вот это чертовщина очень долго стоит? Памагите​

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

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

#include<windows.h>

#include<iostream.h>

#include<stdlib.h>

#include<conio.h>

#include<stdio.h>

#include<string.h>

int main()

{

   SetConsoleOutputCP(1251);

   char text[1000],p,r[]=" ,._-!?\"';:()";

   char T[][33] =  

{

{'а','б','в','г','д','е','ё','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ы','ь','э','ю','я'},

{'А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я'}

};

   int i,q,j;

   char d,sLen;

   cout<<"Введите строку:"<<endl;

   /*gets(s);

   d=strlen(s);

   p=s[1];

   for(i=2;i<d;i++)

       if(strrchr(s[i],p)==0)

           p=s[i]+p;*/

   while(gets(text)!=NULL)

{

sLen = strlen(text);

for(i = 1; i < (sLen-1); i++){

if(text[i-1]=='.'){

for(i = 1; i < (sLen-1); i++){

{

for(j = 0; j < 33; j++) for(i = 0; i < 2; i++)

if(text[i] == T[i][j]) ;}}

cout<<text<<endl;

if(q==1) printf("%s\n", text);

   cout<<p<<endl;

   return 0;

Объяснение:

//Обьявляем дополнительные переменные и главный массив, а также два дополнительных - они будут "половинками".

var

 a, b, c: array [1..100] of longint;

 i, min, n, j, t: longint;

begin

 //Читаем количество элементов в нашем массиве.

 readln(n);

 //Читаем массив.

 for i := 1 to n do read(a[i]);

 //Заполняем первую "половинку".

 for i := 1 to n div 2 do b[i] := a[i];

 //Заполняем вторую "половинку". Но раз это уже вторая "половинка" главного массива, то и

 //цикл теперь должен начинаться со второй части массива, а заканчиваться уже в его конце.

 for i := n div 2 + 1 to n do c[i - n div 2] := a[i];

 //Теперь отсортируем первую "половинку" методом выбора. Идея этого метода

 //основывается на том, что мы ищем минимальный среди неотсортированных элемент,

 //а затем аем его с тем, который стоит сразу после отсортированных.

 for i := 1 to (n - 1) div 2 do

 begin

   min := i;

   for j := i + 1 to n div 2 do

     if b[min] > b[j] then

       min := j;

   if min <> i then begin

     t := b[i];

     b[i] := b[min];

     b[min] := t;

   end;

 end;

 //Затем вторую точно также, только стоит обратить внимание на сравнения.

 //Так как надо отсортировать по убыванию, то теперь сравнение перед "swap"-ом

 //будет другим.

 for i := 1 to (n - 1) div 2 do

 begin

   min := i;

   for j := i + 1 to n div 2 do

     if c[min] < c[j] then

       min := j;

   if min <> i then begin

     t := c[i];

     c[i] := c[min];

     c[min] := t;

   end;

 end;

 //А теперь по очереди выводим готовые "половинки", не забывая ставить

 //пробел после вывода каждого элемента.

 for i := 1 to n div 2 do write(b[i], ' ');

 for i := 1 to n - n div 2 do write(c[i], ' ');

end.