Хостинг Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг на Windows 2008

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

Чемпионы рейтинга экспертов в этой рассылке

Micren Статус: Студент Рейтинг: 149 ∙ повысить рейтинг >>

Николай // Programmator Статус: Студент Рейтинг: 141 ∙ повысить рейтинг >>

Пупорев Юрий Борисович Статус: Специалист Рейтинг: 105 ∙ повысить рейтинг >>

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Pascal

Выпуск № 792
от 25.01.2009, 00:35

Вопрос № 158102: Здравствуйте! Если несложно помогите еще вот с этими задачами: 1. В данной действительной квадратной матрице порядка m×n найти сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой эле-мент еди...

Вопрос № 158.102

Здравствуйте! Если несложно помогите еще вот с этими задачами: 1. В данной действительной квадратной матрице порядка m×n найти сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой эле-мент единственный. 2. Характеристикой столбца матрицы назовем произведение положительных элементов с четными номерами строк. Упорядочить столбцы матрицы по возрастанию их характери-стик. 3. Характеристикой столбца целочисленной матрицы назовем сумму элементов, являю-щихся простыми числами. Упорядочить столбцы матрицы по убыванию их характеристик. 4. Дана целочисленная матрица. Для каждого столбца матрицы вычислить количество элементов, являющихся удвоенными нечетными числами. Определить, будут ли упорядочены полученные значения.

Отправлен: 19.01.2009, 02:29 Вопрос задал: Popov_ A_V (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Popov_ A_V! Решение задач с пояснениями в приложении. Приложение: №1. uses crt; const m=8; n=6; var i,j,imin:integer; a:array[1..50,1..50]of real; min,sm:real; begin clrscr; randomize; min:=100;imin:=1; for i:=1 to m do for j:=1 to n do begin a[i,j]:=10*random;{вводим в матрицу значения} if a[i,j]<min then begin min:=a[i,j];{находим минимальный} imin:=i; {запоминаем строку} end; end; writeln('Matrica A:'); for i:=1 to m do begin for j:=1 to n do if i=imin then begin Textcolor(12); {строку с минимальным выделяем красным цветом} write(a[i,j]:7:3); end else begin Textcolor(0); {остальные строки цветом по умолчанию} write(a[i,j]:7:3); end; writeln; end; writeln; sm:=0; for j:=1 to n do sm:=sm+a[imin,j]; {считаем сумму в строке с минимальным} writeln('Minimalnyj element=',min:0:3,' v stroke ',imin); write('Summa=',sm:0:3); readln end. end. №2. uses crt; const n=6; m=5; var a:array[1..n,1..m]of integer;{матрица} b:array[1..m]of integer;{массив произведений} i,j,l,pr,x,y:integer; begin clrscr; randomize; writeln('Ishodnaia matrica:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(10)-2; write(a[i,j]:3); end; writeln; end; for j:=1 to m do {идем по столбцам вправо} begin pr:=1; for i:=1 to n do {идем по столбцу вниз} begin if (i mod 2=0)and(a[i,j]>0) then{если строка четная и элемент>0} pr:=pr*a[i,j]; {умножаем} b[j]:=pr; {заносим результат в массив} end; end; for i:=1 to m-1 do for j:=i+1 to m do if b[i]>b[j] then {по возрастанию произведений} begin x:=b[i]; {сортируем массив произведений} b[i]:=b[j]; b[j]:=x; for l:=1 to n do {сортируем элементы в строках, переставляя столбцы} begin y:=a[l,i]; a[l,i]:=a[l,j]; a[l,j]:=y; end; end; Writeln('Rezultat:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:5); writeln; end; writeln('Harakteristiki stolbcov:'); for i:=1 to m do write(b[i]:5); readln end. №3. uses crt; const n=6; m=5; function Prost(z:integer):boolean;{функция логического типа, определяет простое или нет} var i:integer; begin for i:=2 to round(sqrt(z))do{делим число по порядку от 2 до корня из числа, дальше нет смысла} if z mod i=0 then {если на что-то делится} begin Prost:=false; {то не простое} break; end; end; var a:array[1..n,1..m]of integer; b:array[1..m]of integer; i,j,l,sm,x,y:integer; begin clrscr; randomize; writeln('Ishodnaia matrica:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(40)+1; write(a[i,j]:4); end; writeln; end; for j:=1 to m do {идем по столбцам вправо} begin sm:=0; for i:=1 to n do {идем по столбцу вниз} begin if Prost(a[i,j]) then {если простое} sm:=sm+a[i,j];{суммируем} b[j]:=sm; {заносим в массив} end; end; for i:=1 to m-1 do for j:=i+1 to m do if b[i]<b[j] then {по убыванию сумм} begin x:=b[i]; {сортируем массив сумм} b[i]:=b[j]; b[j]:=x; for l:=1 to n do begin y:=a[l,i]; {сортируем в строках, переставляем столбцы} a[l,i]:=a[l,j]; a[l,j]:=y; end; end; Writeln('Rrzultat:'); for i:=1 to n do begin for j:=1 to m do write(a[i,j]:4); writeln; end; writeln('Harakteristiki stolbcov:'); for i:=1 to m do write(b[i]:4); readln end. №4. uses crt; const n=6; m=3; function ByOdd(z:integer):boolean; {функция логического типа определяет удвоенные нечетные числа} begin if (z mod 2=0)and((z div 2) mod 2<>0) {если число делится на 2 и после этого не делится на 2} then ByOdd:=true {то подойдет} else ByOdd:=false; {иначе нет} end; var a:array[1..n,1..m]of integer; b:array[1..m]of integer; i,j,k,kv,ku:integer; begin clrscr; randomize; writeln('Ishodnaia matrica:'); for i:=1 to n do begin for j:=1 to m do begin a[i,j]:=random(41)+6; write(a[i,j]:4); end; writeln; end; for j:=1 to m do {идем по столбцам} begin k:=0; for i:=1 to n do {идем по столбцу вниз} begin if ByOdd(a[i,j]) then {если подходит} k:=k+1; {считаем} b[j]:=k; {заносим в массив} end; end; writeln('Kolichestvo zadannyh elementov:'); for i:=1 to m do write(b[i]:4); {} writeln; kv:=0;ku:=0; for i:=2 to m do if b[i]>=b[i-1] then kv:=kv+1 {если элемент не убывает, считаем} else if b[i]<=b[i-1] then ku:=ku+1; { если элемент не возрастает, считаем } if kv=m-1 then write('Uporyadocheny po vozrastaniu!') {если все не убывают} else if ku=m-1 then write('Uporyadocheny po ubyvaniu!') {если все не возрастают} else write('Ne uporyadocheny!'); {иначе} readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 19.01.2009, 10:22 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241565 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Отвечает: Micren Здравствуйте, Popov_ A_V! Комментарии в программах. Приложение: { В данной действительной квадратной матрице порядка m×n найти сумму элементов строки, в которой расположен элемент с наименьшим значением. Предполагается, что такой эле-мент единственный. } program Pascal_158102_1; { Размерность матрицы } const M=10; N=10; var arr:array[1..M,1..N]of double; i,j,row:integer; min,sum:double; begin Randomize; { Создаем матрицу и выводим ее на экран } WriteLn('Matrix:'); for i := 1 to M do begin for j := 1 to N do begin arr[i,j]:=Random*50-25; Write(arr[i,j]:6:2,' '); end; WriteLn; end; { Ищем строку с минимальным элементом } min:=arr[1,1]; row:=1; for i := 1 to M do for j := 1 to N do if min>arr[i,j] then begin min:=arr[i,j]; row:=i; end; { Считаем сумму } sum:=0; for j := 1 to N do sum:=sum+arr[row,j]; WriteLn('sum=',sum:8:2); ReadLn; end. { Характеристикой столбца матрицы назовем произведение положительных элементов с четными номерами строк. Упорядочить столбцы матрицы по возрастанию их характери-стик. } program Pascal_158102_2; { Размерности матрицы } const M=10; N=7; type TCol=1..N; var arr:array[1..M,1..N]of integer; i,j:integer; { Функция вычисляет характеристику матрицы по условию } function Characteristics(col:TCol):double; var res:double; i:integer; begin res:=1; for i := 1 to M div 2 do if arr[2*i,col]>0 then res:=res*arr[2*i,col]; Characteristics:=res; end; { Функция меняет местами столбцы col1 и col2 } procedure SwapCol(col1,col2:TCol); var i,tmp:integer; begin if col1<>col2 then for i := 1 to M do begin tmp:=arr[i,col1]; arr[i,col1]:=arr[i,col2]; arr[i,col2]:=tmp; end; end; begin Randomize; { Создаем матрицу и выводим ее на экран } WriteLn('Matrix:'); for i := 1 to M do begin for j := 1 to N do begin arr[i,j]:=Random(51)-25; Write(arr[i,j]:4,' '); end; WriteLn; end; { Сортировка методом пузырька } for i := 1 to N do for j := 1 to N - i do if Characteristics(j)>Characteristics(j+1) then SwapCol(j,j+1); { Выводим результат } WriteLn('Matrix:'); for i := 1 to M do begin for j := 1 to N do Write(arr[i,j]:4,' '); WriteLn; end; ReadLn; end. { Характеристикой столбца целочисленной матрицы назовем сумму элементов, являю-щихся простыми числами. Упорядочить столбцы матрицы по убыванию их характеристик. } program Pascal_158102_3; { Размерности матрицы } const M=10; N=7; type TCol=1..N; var arr:array[1..M,1..N]of integer; i,j:integer; { Функция возвращает true если число простое } function isSimple(num:integer):boolean; var i,mid:integer; begin if num mod 2=0 then isSimple:=false else begin isSimple:=true; i:=3; mid:=Trunc(sqrt(num)); while i<=mid do begin if num mod i=0 then begin isSimple:=false; break; end; i:=i+2; end; end; end; { Функция вычисляет характеристику матрицы по условию } function Characteristics(col:TCol):integer; var res:integer; i:integer; begin res:=0; for i := 1 to M do if isSimple(arr[i,col]) then res:=res+arr[i,col]; Characteristics:=res; end; { Функция меняет местами столбцы col1 и col2 } procedure SwapCol(col1,col2:TCol); var i,tmp:integer; begin if col1<>col2 then for i := 1 to M do begin tmp:=arr[i,col1]; arr[i,col1]:=arr[i,col2]; arr[i,col2]:=tmp; end; end; begin Randomize; { Создаем матрицу и выводим ее на экран } WriteLn('Matrix:'); for i := 1 to M do begin for j := 1 to N do begin arr[i,j]:=Random(51); Write(arr[i,j]:4,' '); end; WriteLn; end; { Сортировка методом пузырька } for i := 1 to N do for j := 1 to N - i do if Characteristics(j)<Characteristics(j+1) then SwapCol(j,j+1); { Выводим результат } WriteLn('Matrix:'); for i := 1 to M do begin for j := 1 to N do Write(arr[i,j]:4,' '); WriteLn; end; ReadLn; end. { Дана целочисленная матрица. Для каждого столбца матрицы вычислить количество элементов, являющихся удвоенными нечетными числами. Определить, будут ли упорядочены полученные значения. } program Pascal_158102_4; uses Math; { Размерности матрицы } const M=5; N=3; type TCol=1..N; var arr:array[1..M,1..N]of integer; ch:array[1..N]of integer; i,j,orderliness,s:integer; { Функция вычисляет характеристику матрицы по условию } function Characteristics(col:TCol):integer; var res:integer; i:integer; begin res:=0; for i := 1 to M do if (arr[i,col] mod 2=0)and((arr[i,col] div 2) mod 2<>0) then Inc(res); Characteristics:=res; end; begin Randomize; { Создаем матрицу и выводим ее на экран } WriteLn('Matrix:'); for i := 1 to M do begin for j := 1 to N do begin arr[i,j]:=Random(51); Write(arr[i,j]:4,' '); end; WriteLn; end; { Считаем и сохраняем характеристики. Выводим их. } WriteLn('Characteristics:'); for i := 1 to N do begin ch[i]:=Characteristics(i); Write(ch[i]:4,' '); end; WriteLn; { Проверяем на упорядоченность } orderliness:=0; for i := 1 to N-1 do begin s:=sign(ch[i]-ch[i+1]); if orderliness=0 then orderliness:=s else if (orderliness<>s)and(s<>0) then begin orderliness:=-100; break; end; end; { Выводим результат } case orderliness of -100:WriteLn('Not ordered'); -1:WriteLn('Ascending'); 1:WriteLn('Descending'); 0:WriteLn('Equal'); end; ReadLn; end.

Ответ отправил: Micren (статус: Студент) Ответ отправлен: 19.01.2009, 21:50 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241626 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 158.140

Помогите пожалуйста с двумя задачками) 1. Подпрограмма Функция Даны действительные числа a,b,c,x,y. Выяснить, пройдет ли кирпич с ребрами a,b,c в прямоугольное отверстие со сторонами x,y. Просовывать кирпич в отверстие разрешается только так, чтобы каждое из его ребер было параллельно или перпендикулярно каждой из сторон отверстия. Вот код решенной задачи: var a,b,c,x,y:real; begin write('Input a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('x='); readln(x); write('y='); readln(y); if ((x >= a) and ((y >= b) or (y >= c))) or ((x >= b) and ((y >= a) or (y >= c))) or ((x >= c) and ((y >= a) or (y >= b))) then writeln('proydet') else writeln('ne proydet'); readln; end. тут нужно, чтобы в программе была функция 2.Подпрограмма Процедура Дана по следовательность из n вещественных чисел. Если в результате замены отрицательных элементов последовательности их квадратами элементы будут образовывать неубывающую последовательность, то получить сумму элементов исходной последовательности, в противном случае получить их произведение. USES Crt; Const max = 100; Var M : Array [0..max] of Real; P : Real; I : Word; n : Word; Function Rastet:Boolean; Var F : Boolean; J : Word; Begin F := True; For J := 1 To n Do Begin If M[J-1] > M[J] Then F := False; End; Rastet := F; End; Function Summa:Real; Var J : Word; R : Real; Begin R := 0; For J := 0 To n Do R := R + M[J]; Summa := R; End; Function Proizv:Real; Var J : Word; R : Real; Begin R := 1; For J := 0 To n Do R := R * M[J]; Proizv := R; End; Begin C lrScr; Randomize; { For I := 0 To n Do Begin M[I] := Random - 0.5; End; } Write ('Vvedite n, chislo elementov posledovatelnosti: '); ReadLn (n); For I := 0 To n Do Begin Write ('a[', i, ']='); ReadLn(M[I]); End; For I := 0 To n Do Begin Write(M[I]:3:3, ' '); End; WriteLn; For I := 0 To n Do Begin If M[I] < 0 Then M[I] := Sqr(M[I]); Write(M[I]:3:3, ' '); End; WriteLn; If Rastet Then Begin P := Summa; WriteLn ('Neubivaet, result: ', P); End Else Begin P := Proizv; WriteLn ('Ubivaet, result: ', P); End; ReadLn; End. ну а тут нужно, чтобы была процедура

Отправлен: 19.01.2009, 13:10 Вопрос задала: Defect (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Motoden Здравствуйте, Defect! 1 задание смотрите в приложении: Приложение: var a,b,c,x,y:real; function pokazatel:string; begin if ((x >= a) and ((y >= b) or (y >= c))) or ((x >= b) and ((y >= a) or (y >= c))) or ((x >= c) and ((y >= a) or (y >= b))) then pokazatel:='proydet' else pokazatel:='ne proydet'; end; begin write('Input a='); readln(a); write('b='); readln(b); write('c='); readln(c); write('x='); readln(x); write('y='); readln(y); writeln(pokazatel); readln; end.

Ответ отправил: Motoden (статус: 2-й класс) Ответ отправлен: 19.01.2009, 13:54 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241587 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Отвечает: Пупорев Юрий Борисович Здравствуйте, Defect! Решение второй задачи в приложении. Поскольку код практически Ваш, комментарии не писал. Приложение: uses crt; const max=100; type Tmas=array[1..max] of real; procedure Raschet(x:Tmas;m:word;var res:real); var i,k:word; begin for i:=1 to m do if x[i]<0 then x[i]:=x[i]*x[i]; k:=0; for i:=2 to m do if x[i]>=x[i-1] then k:=k+1; if k=m-1 then begin writeln('Posledovatelnost neubyvaeshaya!'); res:=0; for i:=1 to m do res:=res+x[i]; end else begin res:=1; writeln('Posledovatelnost ne yavlyaetsa neubyvaeshej!'); for i:=1 to m do res:=res*x[i]; end; end; var a:Tmas; p:real; n,i:word; begin ClrScr; write ('Vvedite n, chislo elementov posledovatelnosti: '); readLn (n); writeln('Vvedite ',n,' veshestvennyh chisel:'); for i:=1 to n do begin write ('a[',i,']='); readLn(a[i]); end; clrscr; writeln('Massiv A:'); for i:=1 to n do write(a[i]:8:3); writeln; Raschet(a,n,p); write('Rezultat=',p:0:3); readln end.

Ответ отправил: Пупорев Юрий Борисович (статус: Специалист) Ответ отправлен: 19.01.2009, 18:12 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241608 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5

Вопрос № 158.195

Здравствуйте, уважаемые эксперты. У меня проблема с задачей на Turbo Pascal, которая не всегда корректно срабатывает. Программа иногда выдает ошибку деления на на ноль и не всегда правильно выводится адрес ячейки модифицированной матрицы, выписывается ноль как результат среднего арифметического, хотя такого не может быть. В адресе ячейки матрицы тоже бывает выписываются нули. Но все это не всегда, не с первого запуска, что делает задачу более загадочной :) . Код в приложении, заранее вам огромное спасибо. Приложение: {$N+} Program rand_matrix; {Popov TX-07d} {Zadacha5} Uses crt; const n=4; Type Matrix=Array [1..n,1..n] of integer; var A:Matrix; i,j,k,Z:integer; sum:integer; num:integer; arif:real; sumcub:integer; temp:integer; max,maxStr,maxStlb:integer; min,minStr,minStlb:integer; C:integer; begin Randomize; clrscr; writeln ('Sozdaem matricu'); writeln; sumcub:=0; for i:=1 to n do begin for j:=1 to n do begin A[i,j]:=integer (Random (21)) -10; write(A[i,j]:5); end; writeln; end; for i:=1 to n do begin temp:=A[i,n-i+1]; sumcub:=sumcub+temp*temp*temp; end; writeln; writeln('Summa cubov: ',sumcub); readln; {-----------------------------} maxStr:=1; maxStlb:=1; max:=A[1,1]; min:=A[2,1]; for i:=1 to n do begin if A[i,i]>max then begin max:=A[i,i]; maxStr:=i; maxStlb:=i; end; end; For i := 2 to N do {nizhe glavnoy diag} For j := 1 to i-1 do if min > A[i,j] then begin min:=A[i,j]; minStr:=i; minStlb:=j; end; writeln; write('Maximalnoe chislo glavnoy diagonali','[', maxStr,',',maxsTlb,']', '=',max); writeln; readLn; write('Minimalnoe chislo pod glavnoy diagonalyu','[', minStr,',',minStlb, ']', '=',min); writeln; readln; sum:=0; temp:=A[maxStr,maxStlb]; A[maxStr,maxStlb]:=A[minStr,minStlb]; A[minStr,minStlb]:=temp; writeln('Izmenennaya matrica ' ); for i:=1 to n do begin for j:=1 to n do begin write(A[i,j]:5); {izmenennaya matrica} if ((i+j) mod 2 =1) then begin sum:=sum+A[i,j]; num:=num+1; arif:=sum/num; {srednee arifmeti4eskoe} end; end; writeln; end; writeln; write('srednee arifmeticheskoe = ', arif:12:5); readln; end.

Отправлен: 19.01.2009, 21:36 Вопрос задал: Евгений Игоревич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 5)

Отвечает: Micren Здравствуйте, Евгений Игоревич! Ваша программа вычисляет среднее арифметическое элементов матрицы сумма номеров столбца и строки которых нечетная. Исправленный код в приложении. Приложение: program Pascal_158195; const n=4; Type Matrix=Array [1..n,1..n] of integer; var A:Matrix; i,j,k,Z:integer; sum:integer; num:integer; arif:real; sumcub:integer; temp:integer; max,maxStr,maxStlb:integer; min,minStr,minStlb:integer; C:integer; begin Randomize; writeln ('Sozdaem matricu'); sumcub:=0; for i:=1 to n do begin for j:=1 to n do begin A[i,j]:=integer (Random (21)) -10; write(A[i,j]:5); end; writeln; end; for i:=1 to n do begin temp:=A[i,n-i+1]; sumcub:=sumcub+temp*temp*temp; end; writeln('Summa cubov: ',sumcub); {-----------------------------} maxStr:=1; maxStlb:=1; max:=A[1,1]; for i:=2 to n do begin if A[i,i]>max then begin max:=A[i,i]; maxStr:=i; maxStlb:=i; end; end; min:=A[2,1]; minStr:=2; minStlb:=1; For i := 2 to N do {nizhe glavnoy diag} For j := 1 to i-1 do if min > A[i,j] then begin min:=A[i,j]; minStr:=i; minStlb:=j; end; writeln('Maximalnoe chislo glavnoy diagonali','[', maxStr,',',maxsTlb,']', '=',max); writeln('Minimalnoe chislo pod glavnoy diagonalyu','[', minStr,',',minStlb, ']', '=',min); temp:=A[maxStr,maxStlb]; A[maxStr,maxStlb]:=A[minStr,minStlb]; A[minStr,minStlb]:=temp; writeln('Izmenennaya matrica ' ); sum:=0;num:=0; for i:=1 to n do begin for j:=1 to n do begin write(A[i,j]:5); {izmenennaya matrica} if ((i+j) mod 2 =1) then begin sum:=sum+A[i,j]; num:=num+1; end; end; writeln; end; arif:=sum/num; {srednee arifmeti4eskoe} writeln('srednee arifmeticheskoe = ', arif:12:5); readln; end.

Ответ отправил: Micren (статус: Студент) Ответ отправлен: 19.01.2009, 22:13 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 241627 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

© 2001-2009, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 5.13 от 01.12.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru RusIRC.ru | Kalashnikoff.ru | RadioLeader.ru