Быыыстро В таблице приведены за и количество страниц найденных по ним сайтов в сегменте сети. За Найдено сайтов (в тысячах) ДОМ 50 ХИЖИНА 80 ЖИЛИЩЕ 100 ДОМ&ЖИЛИЩЕ 20 ХИЖИНА|ДОМ 110 ЖИЛИЩЕ&ХИЖИНА 30 ДОМ&ХИЖИНА&ЖИЛИЩЕ 5 Сколько страниц (в тысячах) будет найдено по за ДОМ|ХИЖИНА|ЖИЛИЩЕ?

200 тысяч

Объяснение:

Нуу, это же не трудно

{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.

{ ответ дан на языке Pascal }
{         Вариант a         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str2 + Str3 + Str1);

END.

{         Вариант b         }
PROGRAM Solution(INPUT, OUTPUT);

VAR
  Str: STRING;
  Str1: STRING;
  Str2: STRING;
  Str3: STRING;
  TempStr: STRING;

BEGIN
  WRITE('Введите строку: ');
  READLN(Str);
  Str1 := COPY(Str, 1, LENGTH(STR) DIV 3);
  Str2 := COPY(Str, LENGTH(STR) DIV 3 + 1, (LENGTH(STR) DIV 3));
  Str3 := COPY(Str, (LENGTH(STR) DIV 3) * 2 + 1, LENGTH(STR));

  WRITELN(Str3 + Str1 + Str2);

END.