Все выпуски  

RFpro.ru: Программирование на Delphi и Lazarus


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты в разделе

Евгений/Genia007/
Статус: Профессионал
Рейтинг: 327
∙ повысить рейтинг »
Асмик Гаряка
Статус: Советник
Рейтинг: 40
∙ повысить рейтинг »
lamed
Статус: Академик
Рейтинг: 0
∙ повысить рейтинг »

∙ Pascal / Delphi / Lazarus

Номер выпуска:1687
Дата выхода:24.05.2016, 17:51
Администратор рассылки:Зенченко Константин Николаевич (Модератор)
Подписчиков / экспертов:21 / 18
Вопросов / ответов:14 / 14

Консультация # 189420: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: написать программу на языке Паскаль: Найдите сумму первого и последнего, второго и предпослед- него и т.д. элементов массива С . Выведите суммы на экран....
Консультация # 189421: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: написать программу на языке Паскаль: Сравните элементы двух массивов между собой , определите количество равных элементов массивов . Вы ведите эти элементы на экран ...
Консультация # 189423: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке Паскаль: Найдите сумму соответствующих элементов массивов X и Y и запишите результат в нов ый массив Z. ...
Консультация # 189424: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке Паскаль: Выведите отдельно целые и дробные части элементов массива В...
Консультация # 189425: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке Паскаль : Определите количество и сумм у элементов одномерного мас- сива, попавших в заданный интервал [a,b]. ...
Консультация # 189426: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: написать программу на языке паскаль: Определите есть ли в массиве А элементы с одинаковыми зна- чениями . Выведите их на экран ...
Консультация # 189427: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке паскаль : В массиве А поменяйте местами максимальный и минималь- ный элементы массива ...
Консультация # 189428: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке паскаль: Создайте массив С из элементов массива А кратных 3. Найди- те сумму и количество элементов нового массива...
Консультация # 189429: Здравствуйте! Прошу помощи в следующем вопросе: написать программу на языке паскаль: Найдите сумму максимального и минимального элементов массива...
Консультация # 189430: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке паскаль: Найдите максимальный и минимальный элементы массива, в заданном интервале [a,b] ...
Консультация # 189431: Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос: написать программу на языке паскаль: Выведите на экран значения квадратов и квадратных корней каждого элемента массива....
Консультация # 189433: Здравствуйте! У меня возникли сложности с таким вопросом: написать программу на языке паскаль: Найдите максимальный и минимальный элементы массива . Максимальный элемент массива поместите в конце массива, минимальный элемент массива в начале массива. ...
Консультация # 189434: Здравствуйте! Прошу помощи в следующем вопросе: написать пр ограмму на языке паскаль: Составить программу, которая формирует одномерный мас- сив из 15 вещественных случайных чисел. Проведите сортировку массива по убыванию ...
Консультация # 189435: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: написать программу на языке паскаль: Дан массив, состоящий из 9 элементов. Программа берет пер- вые три элемента и подставляет их в квадратное уравнение вида a*x^2+ bx+ c= 0, вместо коэффициентов а, b, с соответственно и решает это уравнение. Затем со второй и третьей тройкам и чисел. ...

Консультация # 189420:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
написать программу на языке Паскаль: Найдите сумму первого и последнего, второго и предпослед-
него и т.д. элементов массива С . Выведите суммы на экран.

Дата отправки: 18.05.2016, 17:12
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  c:array[1..n]of integer;
  a,b:integer;
begin
  {создаем массив}
  writeln('Massiv C:');
  randomize;
  for a:=1 to n do
    begin
      c[a]:=random(100);{новый элемент массива}
      write(c[a]:5);{выводим его}
    end;
  writeln;
  {считаем суммы}
  writeln('summa:');
  a:=1;
  b:=n;
  while a<b do
    begin
      write(c[a]+c[b]:4);{выводим сумму}
      inc(a);{увеличиваем индекс}
      dec(b);{уменьшаем индекс}
    end;
  if a=b then write(c[a]:4);{выводим одно число, если кол-во эементов нечетное}
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 15:44
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189421:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
написать программу на языке Паскаль: Сравните элементы двух массивов между собой , определите
количество равных элементов массивов . Вы ведите эти элементы на экран

Дата отправки: 18.05.2016, 17:13
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  x,y:array[1..n]of integer;
  a,b,c:integer;
begin
  {создаем массив Х}
  writeln('Massiv X:');
  randomize;
  for a:=1 to n do
    begin
      x[a]:=random(100);{новый элемент массива}
      write(x[a]:5);{выводим его}
    end;
  writeln;
  {создаем массив Y}
  writeln('Massiv Y:');
  for a:=1 to n do
    begin
      y[a]:=random(100);{новый элемент массива}
      write(y[a]:5);{выводим его}
    end;
  writeln;
  {считаем совпадения}
  c:=0;
  writeln('Result:');
  for a:=1 to n do
    for b:=1 to n do
    if x[a]=y[b] then
      begin
        write(x[a]:5);{выводим совпавшее}
        inc(c);{увеличиваем счетчик}
      end;
  writeln;
  {выводим сообщение, что нет совпадений или их количество}
  if c=0 then writeln('there are not identical.')
         else writeln('count:=',c);
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 15:21
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189423:

Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль: Найдите сумму соответствующих элементов массивов X и Y и
запишите результат в новый массив Z.

Дата отправки: 18.05.2016, 17:15
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  x,y,z:array[1..n]of integer;
  a,b,c,d:integer;
begin
  {создаем массив Х}
  writeln('Massiv X:');
  randomize;
  for a:=1 to n do
    begin
      x[a]:=random(100);{новый элемент массива Х}
      write(x[a]:8);{выводим его}
    end;
  writeln;
  {создаем массив Y}
  writeln('Massiv Y:');
  for a:=1 to n do
    begin
      y[a]:=random(100);{новый элемент массива Y}
      write(y[a]:8);{выводим его}
      z[a]:=x[a]+y[a];{суммируем с массивом Х, получаем Z}
    end;
  writeln;
  {выводим массив Z}
  writeln('Massiv Z:');
  for a:=1 to n do
    write(z[a]:8);{выводим элемент массива}
  writeln;
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 14:45
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189424:

Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке Паскаль: Выведите отдельно целые и дробные части элементов массива
В

Дата отправки: 18.05.2016, 17:15
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  z:array[1..n]of real;
  a,b,c,d:integer;
begin
  {создаем массив}
  writeln('Massiv:');
  randomize;
  for b:=1 to n do
    begin
      z[b]:=50*random;{новый элемент}
      write(z[b]:10:7);{выводим его}
    end;
  writeln;
  {выводим целые части отдельно}
  writeln('integer part:');
  for b:=1 to n do
    write(trunc(z[b]):10);
  writeln;
  {выводим дробные части отдельно}
  writeln('fractional part:');
  for b:=1 to n do
    write(frac(z[b]):10:7);
  writeln;
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 14:26
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189425:

Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке Паскаль : Определите количество и сумм у элементов одномерного мас-
сива, попавших в заданный интервал [a,b].

Дата отправки: 18.05.2016, 17:16
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  z:array[1..n]of integer;
  a,b,c,d:integer;
begin
  {создаем массив}
  writeln('Massiv:');
  randomize;
  for b:=1 to n do
    begin
      z[b]:=random(100);{новый элемент}
      write(z[b]:3);{выводим}
    end;
  writeln;
  {вводим нижнюю границу интервала}
  repeat
    write('Enter A:');
    readln(a);
  until(0<a)and(a<n);
  {вводим верхнюю границу интервала}
  repeat
    write('Enter B:');
    readln(b);
  until(a<b)and(b<=n);
  {суммируем интервал}
  for c:=a to b do
    d:=d+z[c];
  {выводим результат}
  writeln('count:=',b-a+1,'summa:=':10,d);
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 14:10
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189426:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
написать программу на языке паскаль: Определите есть ли в массиве А элементы с одинаковыми зна-
чениями . Выведите их на экран

Дата отправки: 18.05.2016, 17:17
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  a:array[1..n]of integer;
  b,c,d:integer;
begin
  {создаем массив}
  writeln('Massiv A:');
  randomize;
  for b:=1 to n do
    begin
      a[b]:=random(100);{новый элемент}
      write(a[b]:3);{выводим}
    end;
  writeln;
  {поиск одинаковых значений}
  write('Result:');
  c:=0;
  for b:=1 to n-1 do
    for d:=b+1 to n do
      if a[b]=a[d] then{сравниваем значения}
        begin
          write(a[b]:3);{выводим найденое}
          inc(c);{считаем их количество}
        end;
  {выводим сообщение об отсутствии совпадений}
  if c=0 then writeln('there are not identical.');
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 13:41
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189427:

Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке паскаль : В массиве А поменяйте местами максимальный и минималь-
ный элементы массива

Дата отправки: 18.05.2016, 17:18
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  a:array[1..n]of integer;
  b,c,d:integer;
begin
  d:=1;{максимальный}
  c:=1;{минимальный}
  {создаем массив}
  randomize;
  for b:=1 to n do
    begin
      a[b]:=random(100);{новый элемент}
      write(a[b]:3);{выводим}
      if a[b]>a[d]then d:=b;{проверяем максимум}
      if a[b]<a[c]then c:=b;{проверяем минимум}
    end;
  {меняем местами}
  writeln;
  b:=a[d];
  a[d]:=a[c];
  a[c]:=b;
  {выводим результат}
  for b:=1 to n do
    write(a[b]:3);
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 12:59
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189428:

Здравствуйте! У меня возникли сложности с таким вопросом:

написать программу на языке паскаль: Создайте массив С из элементов массива А кратных 3. Найди-
те сумму и количество элементов нового массива

Дата отправки: 18.05.2016, 17:20
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  a,c:array[1..n]of integer;
  b,d,e:integer;
begin
  d:=0;{счетчик-индекс нового массива}
  e:=0;{сумма нового массива}
  writeln;
  writeln('Massiv A:');
  randomize;
  for b:=1 to n do
    begin
      a[b]:=random(100);{создаем новый элемент массива}
      write(a[b]:3);{выводим}
      if(a[b] mod 3)=0 then{проверяем кратность}
        begin
          inc(d);{увеличиваем счетчик}
          c[d]:=a[b];{запоминаем значение}
          e:=e+c[d];{считаем сумму}
        end;
      end;
  writeln;
  {выводим результат работы}
  writeln('Massiv C:');
  writeln('count:=',d,'summa:=':10,e);
  if d>0 then
    for b:=1 to d do write(c[b]:3)
    else writeln('does not exist');
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 12:32
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189429:

Здравствуйте! Прошу помощи в следующем вопросе:

написать программу на языке паскаль: Найдите сумму максимального и минимального элементов
массива

Дата отправки: 18.05.2016, 17:20
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  a:array[1..n]of integer;
  b,c,d:integer;
begin
  d:=1;{максимальный}
  c:=1;{минимальный}
  {создаем массив}
  randomize;
  for b:=1 to n do
    begin
      a[b]:=random(100);{новый элемент}
      write(a[b]:3);{выводим}
      if a[b]>a[d]then d:=b;{проверяем максимум}
      if a[b]<a[c]then c:=b;{проверяем минимум}
    end;
  {выводим результат}
  writeln;
  writeln('A[',c:2,']+A[',d,']=',a[c],'+',a[d],'=',a[c]+a[d]);
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 12:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189430:

Здравствуйте! У меня возникли сложности с таким вопросом:
написать программу на языке паскаль: Найдите максимальный и минимальный элементы массива, в
заданном интервале [a,b]

Дата отправки: 18.05.2016, 17:21
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=20;
var
  z:array[1..n]of integer;
  a,b,c,d,e:integer;
begin
  repeat{вводим нижнюю границу диапазона}
    write('enter A:=');
    readln(a);
  until(0<a)and(a<n);
  repeat{вводим верхнюю границу диапазона}
    write('enter B:=');
    readln(b);
  until(a<b)and(b<=n);
  c:=a;{максимальное}
  d:=a;{минимальное}
  for e:=1 to n do
    begin
      z[e]:=random(100);{получаем новый элемент массива}
      write(z[e]:4);{выводим элемент массива}
      if(a<=e)and(e<=b)then{проверяем диапазон}
        begin
          if z[e]>z[d]then d:=e;{новое максимальное}
          if z[e]<z[c]then c:=e;{новое минимальное}
        end;
    end;
  {выводим результат}
  writeln('minimum:=',z[c],'maximum:=':15,z[d]);
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 12:06
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189431:

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

написать программу на языке паскаль: Выведите на экран значения квадратов и квадратных корней
каждого элемента массива.

Дата отправки: 18.05.2016, 17:22
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=10;
var
  a:array[1..n]of integer;
  b:integer;
begin
  {}
  for b:=1 to n do
    begin
      a[b]:=random(100);
      writeln('A[',b:2,']:=',a[b]:4,'sqrt(':10,a[b]:3,'):=',sqr(a[b]):5,'sqrt(':10,a[b]:3,'):=',sqrt(a[b]):10:7);
    end;
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 11:41
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189433:

Здравствуйте! У меня возникли сложности с таким вопросом:
написать программу на языке паскаль: Найдите максимальный и минимальный элементы массива .
Максимальный элемент массива поместите в конце массива, минимальный
элемент массива в начале массива.

Дата отправки: 18.05.2016, 17:29
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=10;
var
  a:array[1..n]of integer;
  b,c:integer;
begin
  {создаем массив}
  randomize;
  for b:=1 to n do
    begin
      a[b]:=random(100);
      write(a[b]:5);
    end;
  writeln;
  {ищем минимум}
  for b:=2 to n do
    if a[1]>a[b]then
      begin
        c:=a[1];
        a[1]:=a[b];
        a[b]:=c;
      end;
  {ищем максимум}
  for b:=2 to n-1 do
    if a[n]<a[b]then
      begin
        c:=a[n];
        a[n]:=a[b];
        a[b]:=c;
      end;
  {выводим массив}
  for b:=1 to n do
    write(a[b]:5);
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 10:53
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189434:

Здравствуйте! Прошу помощи в следующем вопросе:
написать программу на языке паскаль: Составить программу, которая формирует одномерный мас-
сив из 15 вещественных случайных чисел. Проведите сортировку массива
по убыванию

Дата отправки: 18.05.2016, 17:32
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
const
  n=15;
var
  i,j:integer;
  a:array[1..n]of real;
  b:real;
begin
  {создаем массив}
  for i:=1 to n do
    begin
      a[i]:=100*random;
      write(a[i]:16:10);
    end;
  writeln;
  {сортировка массива}
  for i:=1 to n-1 do
    for j:=i+1 to n do
      if a[i]<a[j]then
        begin
          b:=a[i];
          a[i]:=a[j];
          a[j]:=b;
        end;
  {вывод массива}
  writeln;
  for i:=1 to n do
    write(a[i]:16:10);
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 10:32
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 189435:

Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
написать программу на языке паскаль: Дан массив, состоящий из 9 элементов. Программа берет пер-
вые три элемента и подставляет их в квадратное уравнение вида
a*x^2+ bx+ c= 0, вместо коэффициентов а, b, с соответственно и решает это
уравнение. Затем со второй и третьей тройкам и чисел. На экран должны
выводиться корни уравнения всех трех случаев.

Дата отправки: 18.05.2016, 17:34
Вопрос задал: amelya.kuro (Посетитель)
Всего ответов: 1
Страница онлайн-консультации »


Консультирует Зенченко Константин Николаевич (Модератор):

Здравствуйте, amelya.kuro!

Смотрите код:

Код (Pascal) :: выделить код
var
  i:integer;
  z:array[1..9]of integer;
procedure calc(a,b,c:integer);
  var
    d:integer;
  begin
    d:=b*b-4*a*c;{дискриминант}
    if d>0 then writeln('x1:=',(sqrt(d)-b)/(2*a),'x2:=':10,(-sqrt(d)-b)/(2*a)){два корня}
      else if d=0 then writeln('x:=',-b/(2*a)){один корень}
        else writeln('only complex root');{нет действительных корней}
  end;
begin
  for i:=1 to 9 do{вводим массив}
    begin
      write('Enter z[',i,']:=');
      readln(z[i]);
    end;
  for i:=0 to 2 do{считаем корни}
    calc(z[3*i+1],z[3*i+2],z[3*i+3]);
end.

Удачи!

Консультировал: Зенченко Константин Николаевич (Модератор)
Дата отправки: 19.05.2016, 10:14
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!


В избранное