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

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

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

Шичко Игорь Статус: Практикант Рейтинг: 193 ∙ повысить рейтинг >>

Verena Статус: Практикант Рейтинг: 110 ∙ повысить рейтинг >>

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

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

Выпуск № 751
от 10.12.2008, 20:35

Вопрос № 152938: <b>Добрый День уважаемые эксперты</b>.... помогите <u>пожалуйста</u> с задачкой буду очень благодарен, Заранее <i>большое спасибо</i>!!!!!: Данна действительная матрица m*n. Найти сумму наибольших значений элементов её строк ...

Вопрос № 152.938

Добрый День уважаемые эксперты.... помогите пожалуйста с задачкой буду очень благодарен, Заранее большое спасибо!!!!!: Данна действительная матрица m*n. Найти сумму наибольших значений элементов её строк

Отправлен: 04.12.2008, 15:54 Вопрос задал: Соловьёв Алексей Александрович (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Layer Здравствуйте, Соловьёв Алексей Александрович! текст поиска см. в приложении. Перед использованием объявить в программе i,j: integer; sum, max: extended; A: array[1..m, 1..n] of extended; Приложение: ... sum := 0; for i:=1 to m do begin max := A[i,1]; for j:=2 to n do if A[i,j] > max then max := A[i,j]; sum := sum + max; end; writeln('Сумма: ', sum); ...

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

Отвечает: Пупорев Юрий Борисович Здравствуйте, Соловьёв Алексей Александрович! Решение задачи в приложении. Приложение: uses crt; const m=5; {размер матрицы} n=6; var a:array[1..m,1..n]of real;{матрица} i,j:integer; max:real; begin clrscr; randomize; writeln('Matrica A:'); for i:=1 to m do {создаем матрицу и выводим на экран} begin for j:=1 to n do begin a[i,j]:=20*random; write(a[i,j]:5:2); end; writeln; end; for i:=1 to m do begin max:=a[i,1]; for j:=1 to n do {ищем максимальный элемент в строке} if a[i,j]>max then max:=a[i,j]; writeln('Maximalnyj element v stroke ',i,' =',max:0:2); end; readln end.

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

Отвечает: 6a3uJI Здравствуйте, Соловьёв Алексей Александрович! Нахождение суммы наибольших элементов строк: for i:=1 to m do begin sum:=0; max:=mas[i,1]; for j:=2 to n do if mas[i,j]>max then max:=mas[i,j]; sum:=sum+max; end;

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

Отвечает: Великий Александр Здравствуйте, Соловьёв Алексей Александрович! Представляю вам свой вариант решения этой задачи (в {} написаны комментарии) Приложение: program Summa; var a: array [1..50,1..50] of integer; i, j, sum, m, n, max: integer; begin sum:=0; WriteLn('Введите m и n...'); ReadLn(m,n); {Заполняем матрицу} For i:=1 to m do For j:=1 to n do begin Write('A [',i,',',j,'] = '); Readln(a[i,j]); end; For i:=1 to m do begin {Ищем наибольший элемент строки} max:=a[i,1]; For j:=2 to n do If max<a[i,j] then max:=a[i,j]; {Прибовляем наибольший элемент к сумме} Sum:=sum+max; end; WriteLn('Сумма равна ',sum); end.

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

Вопрос № 152.971

Здравствуйте, уважаемые эксперты, решите пожалуйста задачу в pascal'ю. Или хотя бы подскажите в каком направлении двигаться? Задача: найти первые n чисел Фибоначчи

Отправлен: 04.12.2008, 18:28 Вопрос задал: Багаутдинов Рафис Газинурович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Багаутдинов Рафис Газинурович! В приложении оба варианта(рекурсия и итерация) выполняются последовательно. Удачи! Приложение: var a,b,c,n:integer; procedure Finobachi(x,y,z:integer); begin if z>0 then begin write(x:6); Finobachi(x+y,x,z-1); end; end; begin {воодим натуральное число} repeat write('Enter N:'); readln(n); until (n>0); {вариант с рекурсией} writeln('I'); Finobachi(1,0,n); {вариант с итерацией} writeln; writeln('II'); a:=0; b:=1; repeat c:=a; a:=a+b; b:=c; write(a:6); dec(n); until n=0; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 04.12.2008, 20:11 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 237691 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: спасибо! полный ответ!

Отвечает: Абельхарисов Руслан/Marked One Здравствуйте, Багаутдинов Рафис Газинурович! Любой n-ый член ряда можно найти по формуле: (a1n - a2n)/√5. Где a1 = (1 +√5)/2; a2 = (1 - √5)/2. Используя эту формулу и цикл For легко найти первые n чисел ряда Фибоначчи. Код в приложении. Удачи!!! Приложение: {функция для вычисления n-ного числа Фибоначчи} function fib(n: integer): extended; var a1, a2: real; begin if n = 1 then begin fib := 1; exit; end; a1:=(1 + sqrt(5))/2; a2:=-(1 - sqrt(5))/2; fib:=(exp(N*ln(a1)) - exp(N*ln(a2)))/sqrt(5); end; var {n - число n, i- счетчик для цикла for} n, i: integer; begin {Получаем n} Write('n: '); ReadLn(n); {Получаем числа Фибоначчи с №1 по №n} for i := 1 to n do WriteLn('Число Фибоначчи №', i, ': ', fib(i):0:0); ReadLn; end.

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

Вопрос № 152.974

задавал вопрос но незарегистрировался под нормальным именем :/ Нужно упорядочить столбцы матрицы(задаеться рандомно, указываються размер n) по убыванию елементов побочной диагонали(как я понимаю можно менять только столбцы местами). Математически это задание очень часто неимеет решение(при смене столбцов меняються елементы диагонали), если нельзя - решения нету писать...

Отправлен: 04.12.2008, 18:50 Вопрос задал: Иванченкo Александр Валериевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванченкo Александр Валериевич! Программа в приложении. © Цитата: { if not c then begin {цикл занимающийся перебором индексов} i:=n; repeat if b[i]<=1 then begin b[i]:=n; dec(i); end; dec(b[i]); until (i=0)or(b[i]>0); { end; {условие выхода из цикла} until { c or } (i=0); Если оставить без изменения, то программа перебирает все варианты расположения столбцов при котором по диагонали все элементы расположены по возрастанию ( убыванию ). Если на одной из диагоналей выполняется условие, то нет разницы главная это диагональ или побочная, всегда можно поменять условие вывода. Результат работы. Если разкомментировать выделенные строки, то программа будет завершать свою работу при нахождении первого выполнего условия или после перебора всех вариантов выведет "ложь". Удачи! Приложение: const n=3; var a:array[1..n,1..n]of integer; b:array[1..n]of integer; c:boolean; i,j:integer; begin {вводим матрицу} for i:=1 to n do begin for j:=1 to n do begin write('a[',i,',',j,']:='); readln(a[i,j]); end; writeln; end; {массив индексов для контроля} for i:=1 to n do b[i]:=n; {в цикле перебираем всё варианты} repeat c:=true; i:=1; {проверяем различие индексов} while (i<n)and c do begin j:=i+1; while (j<=n)and c do begin c:=c and (b[i]<>b[j]); inc(j); end; inc(i); end; {если индексы различны - проверяем условие убывания-возрастания элементов, зависит от установлениго условия} if c then begin i:=2; {начинаем со второго элемента и проверяем с преддыщим} while (a[i-1,b[i-1]] < a[i,b[i]])and(i<n) do inc(i); {проверяем последний элемент массива} c:=(i=n)and(a[i-1,b[i-1]] < a[i,b[i]]); {если последовательность возрастает, то выводим на экран этот вариант} if c then begin for i:=1 to n do begin for j:=1 to n do write(a[i,b[j]]:3); writeln; end; writeln; end; end; { if not c then begin {цикл занимающийся перебором индексов} i:=n; repeat if b[i]<=1 then begin b[i]:=n; dec(i); end; dec(b[i]); until (i=0)or(b[i]>0); { end; {условие выхода из цикла} until {c or} (i=0); write(c); readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 04.12.2008, 19:48 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 237688 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.013

Уважаемые эксперты,пожалуйста,помогите решить эту задачу.Заранее спасибо.Вот собственно и само условие сей задачи: type деньнедели=(пн,вт,ср,чт,пт,сб,вс); Описать множественный тип, включающий в себя множества из: а) названий любых дней недели; б) названий рабочих дней недели.

Отправлен: 04.12.2008, 23:31 Вопрос задал: Ростовичев Иван Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 6a3uJI Здравствуйте, Ростовичев Иван Владимирович! Судя по условию, вроде так: Приложение: type DayWeek = (pon, vt, sr, cht, ptn, syb, vs); SetDayWeek = set of DayWeek; const AnyDay: SetDayWeek = [pon]; WorkDay: SetDayWeek = [pon, vt, sr, cht, ptn];

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

Вопрос № 153.017

Уважаемые эксперты,пожалуйта,помогите решить данную задачу: const n=40; type вектор=array [l..n] of real; Описать функцию min(x) для определения минимального элемента вектора х, введя вспомогательную рекурсивную функцию min1(k), находящую минимум среди последних элементов вектора х, начиная с k-ro.

Отправлен: 04.12.2008, 23:42 Вопрос задал: Ростовичев Иван Владимирович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Boriss Здравствуйте, Ростовичев Иван Владимирович! Может быть так? Это не самый лучший пример для рекурсии, поскольку нужно перебрать все элементы Приложение: const n = 40; TYPE vector = array[1..n] of real; function min(v: vector; No: Integer): Real; function min1(k: Integer): Real; var m: Real; begin if k >= n then m := v[n] else m := min1(k+1); if m < v[k] then min1 := m else min1 := v[k] end; begin min := min1(No) end; var i, k: Integer; ve: vector; BEGIN for i:=1 to n do ve[i] := random; for i:=1 to n do write(ve[i]:8:4); WriteLn; repeat Write('Введите номер от 1 до ',n,': '); ReadLn(k); if (k > 0) and (k <= n) then Break; WriteLn('Неверный ввод. Попробуйте ещё раз'); until false; WriteLn(min(ve, k):8:4); END. --------- Вывод - то место в тексте, где вы устали думать

Ответ отправил: Boriss (статус: Профессор) Россия, Саранск Организация: Мордовский госуниверситет, Саранск, Факультет Электронной Техники WWW: Программирование на Паскале ICQ: 320096696 ---- Ответ отправлен: 08.12.2008, 20:37 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238100 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.057

Добрый день!помогите зашифровать и расшифровать русскоязычное сообщение с пробелами и без знаков препинания с помощью шифра Вижинера. Реализовать двойное шифрование с двумя разными числовыми ключами. Длина каждого ключа должна быть не менее 7 символов.

Отправлен: 05.12.2008, 10:27 Вопрос задал: Кузьменко Станислав Станиславович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Кузьменко Станислав Станиславович! Программа в приложении. Исходные строки str_alpha:='абвгдежзийклмнопрстуфхцчшщьыъэюя'; и str_password:='амброзия'; являются ключами шифрования. Первая определяет взаимное расположение символов алфавита, вторая сам пароль. Сами строки взяты из описания системы шифрования Вижинера (формат pdf:271kb) Удачи! Приложение: uses crt; var str_alpha,str_password,str_input,str_output:string; c:char; procedure Shifr(znak:integer); var i,j,z:integer; begin str_output:='';{формируемая строка} i:=1;{начальное положения в строке str_password} j:=1;{начальное положение в шифруемой строке} repeat {считаем сдвиг} z:=pos(str_input[j], str_alpha)+ pos(str_password[i],str_alpha)*znak-znak; {корректируем выход за пределы строки str_alpha} if z>length(str_alpha) then z:=z-length(str_alpha); if z<0 then z:=z+length(str_alpha); {добавляем закодированный символ в строку} str_output:=str_output+str_alpha[z]; {следующие значения} i:=(i+1) mod length( str_password ); inc(j);{} until j>length(str_input); {выводим результат работы} writeln; writeln('A: ',str_input); writeln('B: ',str_output); end; begin {исходные данные} str_alpha:='абвгдежзийклмнопрстуфхцчшщьыъэюя'; str_password:='амброзия'; str_input:='прилетаюседьмого'; {цикл меню} repeat {меню работы} writeln('Main menu:'); writeln('c-coder;'); writeln('d-decoder;'); write('e-exit:'); c:=ReadKey; if (c='c')or(c='C')then Shifr( 1); if (c='d')or(c='D')then Shifr(-1); {для функции декодирования} str_input:=str_output; {проверяем выход} until (c='e')or(c='E'); end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 09.12.2008, 18:38 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 238164 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это!

Вопрос № 153.073

Помоги пожайлуста решить ещё пару задач... #1 Обнулить строку и столбец матрицы X(K,L), K<=15, L<=20, в которых находиться её наиманьший элемент. #2 Дана вещественная таблица a[1..50]. Найти среднее арифметическое положительных элементов таблицы и минимум абсолютного значения элементов. Найти их произведение.

Отправлен: 05.12.2008, 12:24 Вопрос задала: Кирова Анастасия Викторовна (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Шичко Игорь Здравствуйте, Кирова Анастасия Викторовна! Предлагаю Вам алгоритмы решения. Код в приложении. Приложение: {1} const k = 5; l = 10; var a: array[1..k, 1..l] of integer; i, j, min, ind_x, ind_y: integer; begin randomize; for i:= 1 to k do begin for j:= 1 to l do begin if Odd(i+j) then a[i,j]:= 3* random(20) else a[i,j]:= (-1) * 2 * random(20); write(a[i,j]:5); end; writeln; end; min:= a[1,1]; ind_x:= 1; ind_y:= 1; {индексы} for i:= 1 to k do for j:= 1 to l do begin if a[i, j] < min then begin min:= a[i, j]; ind_x:= i; ind_y:= j; end; end; writeln; writeln('min=' , min:5); writeln; for i:= 1 to k do a[i, ind_y]:= 0; {удаление} for i:= 1 to l do a[ind_x, i]:= 0; for i:= 1 to k do {результат} begin for j:= 1 to l do write(a[i,j]:5); writeln; end; readln; end. {2} const n = 50; var a: array[1..n] of integer; i, min, kol, summ: integer; average, proizv: real; begin randomize; for i:= 1 to n do begin a[i]:= Random(100) - 50; if a[i] = 0 then a[i]:= a[i] + 3; {чтобы не было нулевых элементов} end; for i:= 1 to n do write(a[i]:5); writeln; summ:= 0; kol:= 0; min:= Abs(a[1]); for i:= 1 to n do begin if a[i] > 0 then begin kol:= kol + 1; summ:= summ + a[i]; {суммируем положительные} end; if Abs(a[i]) < min then min:= Abs(a[i]); {ищем минимум} end; average:= summ / kol; proizv:= min * average; writeln('average = ', average:10:2); writeln('min = ', min:10); writeln('proizv = ', proizv:10:2); readln; end.

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

Отвечает: 6a3uJI Здравствуйте, Кирова Анастасия Викторовна! Вот Ваше решение: Приложение: 1) for i:=1 to K do for j:= to L do begin x[i,j]:=random(50)-25; {Заполняем таблицу случ. числами} if x[i,j]<min then {сразу же ищем минимальный элемент} begin min:=x[i,j]; min_i:=i; min_j:=j; end; end; for i:=1 to K do {обнудение столбца} x[i,min_j]:=0; for j:=1 to L do {обнуление строки} x[min_i,j]:=0; 2) sum:=0; k:=0; min:=abs(a[1]); for i:=1 to 50 begin if a[i]>0 then begin sum:=sum+a[i]; k:=k+1; end; if abs(a[i])<min then min:=abs(a[i]); end; writeln('Среднее арифметическое положительных элементов = ',sum/k); writeln('Минимум абсолютного значения = ',min); writeln('Произведение = ',min*sum/k);

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

Вопрос № 153.087

Многоуважаемые эксперты помогите пожалуйста в решении задач!!! Буду признателен!!! 1) Даны строки S1, S2 и символ С. Перед каждым вхождением символа С в строку S1 вставить строку S2. 2) Описать функцию FactR(N) вещественного типа, позволяющую вычислять приближенное значение факториала N!=1*2*...*N для целых N(>0). Спомощью этой функции вычислить факториалы пяти данных(любых) чисел. 3) Определить клиентов, у которых сумма вклада в банке меньше стоимости строения.(базу данных в файле создаёте сами, но напишите чё к чему там)! 4) Дан текстовый файл. Найти колличество абзацев в тексте, если абзацы отделяются друг от друга одной или несколькими пустыми строками. 5) F(x)=ex+lnx-10x. На интервале [3;4]. ответ х=3,5265. (в условии х в степени е). Заранее огромное спасибо!!!!

Отправлен: 05.12.2008, 14:18 Вопрос задал: Борисов Виктор Евгеньевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Шевченко Дмитрий Здравствуйте, Борисов Виктор Евгеньевич! В приложении код программ для задач № 1 и 2. С уважением, Дмитрий. Приложение: program z153087_1; var s1,s2:String; c:char; i:Integer; begin Write('Enter S1: ');{Ввод данных} ReadLn(s1); Write('Enter S2: '); ReadLn(s2); Write('Enter C: '); ReadLn(C); For i:= length(s1) downto 1 do{перебираем строку с конца} IF s1[i] = c then{Если встретили символ C - } insert(s2,s1,i);{вставляем перед ним строку S1} WriteLn('Result: ');{выводим ответ} WriteLn(s1); ReadLn(); end. ----------------- program z153087_2; Function FactR(N:Word):Extended; var res:Extended; i:Word; begin res:=1; For i := 1 to N do res:=res*i; FactR:=res; end; var n:Word; i:byte; begin For i:= 1 to 5 do begin Write('Enter N: ');{Ввод данных} ReadLn(n); WriteLn('N! = ',FactR(n):0:0);{Выводим ответ} end; end.

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

Вопрос № 153.088

Здравствуйте)))) Пожалуйста, помогите мне решить задачи в языке программирования Pascal. Надеюсь на вашу помощь....Вот условия: Задача№1. Вычислить среднее арифметическое значение положительных элементов матрицы А (К,К), К<=60, лежащих над главной диагональю. Задача№2. Найти значение выражения 1*1+2*2+...+n*n

Отправлен: 05.12.2008, 14:20 Вопрос задал: Annsi Salmela (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 6a3uJI Здравствуйте, Annsi Salmela! Вот Ваше решение по заданным задачам: Приложение: 1) sum:=0; c:=0; for i:=1 to k do for j:=1 to k do if (a[i,j]>=0) and (i<j) then begin sum:=sum+a[i,j]; c:=c+1; end; writeln('среднее арифметическое = ', sum/c); 2) sum:=0; for i:=1 to n do sum:=sum+i*i; writeln(sum);

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

Вопрос № 153.091

Пожалуйста помогите с решением этих задачек... №1 Дано натуральное число n. Выяснить, сколько положительных элементов содержит матрица a[i,j], i,j=1..n, если a[i,j]=sin(i^2/n + j^2/n). №2 n/2 n Вычислить выражение S=P/Q, где P=[ ]Ai Q=[ ]Ai i=1 i=1 А - массив, состоящий из n элементов. Определение произведения оформить в виде подпрограммы.

Отправлен: 05.12.2008, 14:39 Вопрос задал: Frustyle (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 4)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Frustyle! Решение первой задачи в прложении. А вторую напишите протым русским языком и не изгаляйтесь со значками, все равно непонятно. Приложение: uses crt; const n=6; var a:array[1..n,1..n] of real; i,j,k:integer; begin clrscr; k:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=sin(i*i/n+j*j/n); if a[i,j]>0 then k:=k+1; write(a[i,j]:6:2); end; writeln; end; writeln; write('K=',k); readln end.

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

Вопрос № 153.096

Здраствуйте уважаемые эксперты. Мне нужно написать программку. Я даже не знаю с помощью каких цыклов ее можно оформить. Пожалуйста помогите мнее ее написать. Заранее очень благодарен. Приложение: http://s39.radikal.ru/i083/0812/db/f80ea63dba97.jpg

Отправлен: 05.12.2008, 15:05 Вопрос задал: Molodec (статус: 3-й класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 6a3uJI Здравствуйте, Генадий Александрович! По условию задачи Вам требуется найти сумму ряда, причем сумма будет считаться найденой, когда новое слагаемое будет меньше заданной погрешности е. Здесь все просто - смотрите приложение. Приложение: uses crt; var ch,sum,rez:real; i:integer; e:real; begin clrscr; sum:=1; {сумма} i:=2; write('Погрешность e = '); readln(e); ch:=1/sqr(i); {вычисляем следующее слагаемое} while abs(ch)>e do {если слагаемое больше е, то продолжаем искать сумму} begin ch:=1/sqr(i); i:=i+1; sum:=sum+ch; end; writeln('Следующее слогаемое = ',ch:10:8); {следующее слогаемое} writeln('Сумма = ',sum:10:8); {сумма} end.

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

Отвечает: Miracle Здравствуйте, Molodec! В приложении решение Вашей задачи. Если будет что-то непонятно - пишите, поясню. Удачи! Приложение: Program amount; {функция для подсчёта заданной сумы в зависимости от заданной точности} function sum(var e: real):real; var i: integer; {i принимает значения 1, 2, 3, .... } s: real; {сумма} counter: real; {счётчик, который сравнивает текущее значение суммы с заданной точностью} begin s:=0; i:=1; counter:= abs(( sqr(Pi))/6 - 1); {задаём значение счётчика} while counter > e do begin {пока значение текущей суммы отличается от её точного значения на e - заданная точность - вычисляем сумму для большего числа слагаемых} s:= s+ (1/(sqr(i))); i:= i+1; counter:= abs(( sqr(Pi))/6 - s); end; sum:= s; end; var s, e: real; {вывод результата} begin writeln('exactness = '); readln(e); s:= sum(e); writeln('amount = ', s:7:3); readln; end. Если вы хотите посмотреть как работает программа, то в код программы нужно добавить одну строчку (добавила строку 15). теперь она выглядит так: Program amount; function sum(var e: real):real; var i: integer; s: real; counter: real; begin s:=0; i:=1; counter:= abs(( sqr(Pi))/6 - 1); while counter > e do begin s:= s+ (1/(sqr(i))); i:= i+1; counter:= abs(( sqr(Pi))/6 - s); writeln(s:7:3); end; sum:= s; end; var s, e: real; begin writeln('exactness = '); readln(e); s:= sum(e); writeln('amount = ', s:7:3); readln; end.

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

Вопрос № 153.099

Вводите массив 5*4. Найти суммы столбцов и заменить ими значение эл. главной диаганали, расположенных в соответствующих столбцах.

Отправлен: 05.12.2008, 15:46 Вопрос задал: Адыгеев Иван Германович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Пупорев Юрий Борисович Здравствуйте, Адыгеев Иван Германович! В прямоугольных матрицах по-моему нет главной диагонали, поэтому сделал для квадратной. Решение в приложении. Приложение: uses crt; const n=5; var a:array[1..n,1..n] of integer; i,j,s:integer; begin clrscr; randomize; writeln('Ishodnaja matrica:');{создаем матрицу} for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(20); write(a[i,j]:4); end; writeln; end; {считаем сумму по столбцам и вставляем ее на главную диагональ} for j:=1 to n do begin s:=0; for i:=1 to n do s:=s+a[i,j]; a[j,j]:=s; end; writeln('Rezultat:'); for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; readln end. write('K=',k); readln end.

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

Вопрос № 153.100

Вот мне задали задачу:Вычислить сумму и среднее арифметическое первых n целых чисел. Можете помочь что тут надо сделать я просто не понимаю суть того что от меня требуется! Помогите пожалуйста! Я сам смогу впринципе сделать просто я не понимаю что именно нужно сделать!

Отправлен: 05.12.2008, 15:47 Вопрос задал: Вольский Никита Евгеньевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Molodec Здравствуйте, Вольский Никита Евгеньевич! Если, я вас правильно понял то мы ищем сумму и среднее арифметическое так: Приложение: program summa; uses crt; var m,n,sum,sar,modsar:integer; begin clrscr; readln(n); m:=n; {SUMMA N Celih 4isel} repeat sum:=sum+m; m:=m-1; until m=0; writeln('Summa = ',sum); sar:=sum div n; modsar:=sum mod n; writeln('Srednee arifmeti4eskoe = ',sar,',',modsar); readkey; end.

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

Отвечает: Великий Александр Здравствуйте, Вольский Никита Евгеньевич! Взгляните на мой вариант решения данной задачи. Приложение: program N_chisla; var sum, i, n: integer; begin sum:=0; repeat WriteLn ('Write N !'); ReadLn (n); until n>0; For i:=1 to n do Sum:=sum+i; Writeln ('Summa = ',sum); WriteLn ('Sr. ariv. = ', sum/n:6:2); end.

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

Вопрос № 153.101

Даны действительные числа a1, ... , a64. Получить действительную квадратную матрицу порядка 8, элементами которой являются числа a1, ... , a64, расположенные в ней по схеме, которая приведена на рисунке:

Отправлен: 05.12.2008, 15:53 Вопрос задал: Иванов Виктор (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор! Программа в приложении. Для наглядности используется целочисельная матрица. При выводе показывается где и какой индекс расположен. Для Вашей задачи нужно будет изменить строку: a[ y , x ] := z;. Удачи! Приложение: const n=8;m=8; var a:array[1..n,1..m]of integer; k,x,y,z:integer; {проверка диапазона } procedure check(var i,j:integer;s:integer); begin if i=0 then inc(i) else if i>s then begin i:=s; j:=j+2; end; end; {выводим массив} procedure outMassiv; begin for x:=1 to n do begin for y:=1 to m do write(a[x,y]:3); writeln; end; writeln; end; begin {начальные значиения} x:=1; y:=1; k:=1;{коэфициент перрключения} {перебираем все номера} for z:=1 to n*m do begin a[y,x]:=z; {следующие координаты} x:=x-k; y:=y+k; {сдедующая строка эквивалентна if (x=0)or(y=0)or(x>n)or(y>n) then k:=-k;} k:=k*(1-2*ord((x=0)or(y=0)or(x>n)or(y>m))); {корректируем координаты} check(x,y,n); check(y,x,m); end;{выводим результат} outMassiv; readln; end. --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 05.12.2008, 17:57 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 237843 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо огромное! Вы меня здорово выручили! Все работает!

Вопрос № 153.102

Оч извиняюсь что прошу но помогите плз решить задачу! Дана квадратная матрица порядка M. Найти сумму элементов ее побочной диагонали.

Отправлен: 05.12.2008, 16:04 Вопрос задал: Вольский Никита Евгеньевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: 6a3uJI Здравствуйте, Вольский Никита Евгеньевич! Все элементы побочной диагонали удовлетворяют следующему условию: a[i,j] - элемент побочной диагонали, если j=m-i+1, то есть a[i,m-i+1] - при i=1...m; Следовательно найти сумму элементов можно: sum:=0; for i:=1 to m do sum:=sum+a[i,m-i+1];

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

Отвечает: Великий Александр Здравствуйте, Вольский Никита Евгеньевич! Спешу предложить вам свой вариант решения этой задачи.... Приложение: program Krug; var a: array [1..60, 1..60] of integer; sum, i, j, m : integer; begin {Вводится M} Writeln('Write M !'); Readln (m); {Заполняем матрицу MxM} For i:=1 to m do For j:=1 to m do begin Write ('A [', i,', ',j,'] ='); Readln (a[i,j]); end; {Считаем сумму побочной диагонали} For i:=1 to m do Sum:= Sum + a[i,m-i+1]; {Выводим результат} WriteLn ('Summa pobochnoi diagonali = ', sum); end.

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

Вопрос № 153.103

Здравствуйте уважаемые эксперты... Подскажите пожалуйста как лучше подготовиться к экзамену по программированию... он будет проходить на компьютерах в виде теста, тема про Pascal.

Отправлен: 05.12.2008, 16:07 Вопрос задал: Иванов Виктор (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Molodec Здравствуйте, Иванов Виктор! Самый лучший способ - это практика. Если вы будете много практиковатьс в написании программ, то сможете ответить почти на любой вопрос. Но, если у вас мало времени, то я бы посоветовал бы вам прочесть книгу Фаронов В. Turbo Pascal. Скачать ее вы сможете Здесь Использование HTML-тегов в ответе. -------- ∙ Отредактировал: Зенченко Константин Николаевич, Профессор ∙ Дата редактирования: 05.12.2008, 18:30 (время московское)

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

Отвечает: Зенченко Константин Николаевич Здравствуйте, Иванов Виктор! Учебник по Турбо Pascal 7 - в краткой форме расказано о всём, начиная от использования основных операторов до программирования с использованием ООП. Удачи! --------- Итерация от человека, рекурсия — от Бога (Питер Дойч)

Ответ отправил: Зенченко Константин Николаевич (статус: Профессор) Украина, Киев Тел.: +380979536619 Адрес: Украина г.Киев ---- Ответ отправлен: 05.12.2008, 20:32 Как сказать этому эксперту "спасибо"? Отправить SMS #thank 237860 на номер 1151 (Россия) | Еще номера >> Отправить WebMoney: Неплохо (10 руб.) Хорошо (15 руб.) Отлично (20 руб.) БЛЕСТЯЩЕ! (30 руб.) Вам помогли? Пожалуйста, поблагодарите эксперта за это! Оценка за ответ: 5 Комментарий оценки: Спасибо огромное! Действительно хороший учебник)

Вопрос № 153.109

Здравствуйте. Составить программу, которая вставляет в список L новый элемент F за каждым вхождением элемента Е.

Отправлен: 05.12.2008, 17:02 Вопрос задал: Морозов Артём Сергеевич (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Verena Здравствуйте, Морозов Артём Сергеевич! Думаю, речь всё-таки идёт о списке и элементе для него. Список создаю через random, однако Вы можете раскомментировать ввод с клавиатуры. В списке ищутся все вхождения введённого числа e и после каждого вставляется элемент со значением f. Алгоритмы работы со списком стандартные, используется две вспомогательные процедуры. Остальное должно быть ясно из комментариев, код в приложении. Удачи! Приложение: Uses crt; Type sp = ^s; {Список} s = record i: integer; next: sp; End; Var first, q, t: sp; n, i, e, f: integer; Procedure Vivod (first: sp); {Процедура для вывода} Var q: sp; Begin Writeln; q:= first; {Начинаем с первого} While q<>nil do {Пок а не закончится список} Begin Write (q^.i, ' '); {Выводим значение} q:= q^.next; {Переходим на следующий} End; Writeln; End; procedure Insert (var q: sp; var a: sp); {Вставка элемента a после q} begin a^.next:= q^.next; {Переписываем ссылку} q^.next:= a; {Запоминаем ссылку на новый элемент} end; Begin ClrScr; {Очистка экрана} randomize; {Инициализация генератора случайных чисел} n:= random (20); {Случайно выдираем число элементов} New (q); {Объявляем головной элемент} q^.i:= random (100); q^.next:= nil; first:= q; for i:=1 to n do {Добавляем ещё n элементов} begin new (q^.next); {Выделяем память под новый элемент} q^.next^.i:= random (100); {Задаём значение случайным образом} {readln (q^.next^.i);{Задаём значение с клавиатуры} q:= q^.next; {Переходим на следующий} end; q^.next:= nil; ClrScr; Vivod (first); {Выводим полученный список} writeln ('Vvedite e: '); readln (e); {Ввод} writeln ('Vvedite f: '); readln (f); {Ввод} q:= first; while (q<>nil) do {Пока не кончится список} begin {Ищем элемент с данным значением} if (q^.i=e) then {Если нашли элемент} begin new (t); {Создаём новый} t^.i:= f; Insert (q, t); {Вставляем} q:= q^.next; {Переходим на следующий} end; q:= q^.next; {Переходим на следующий} end; writeln ('Rezult: '); {Выводим результирующий список} Vivod (first); while (first<>nil) do begin q:= first; first:= first^.next; dispose (q); end; readkey; End. --------- Эта история - не для истории, понимаешь?

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

Вопрос № 153.115

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

Отправлен: 05.12.2008, 18:29 Вопрос задал: Sema666 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Великий Александр Здравствуйте, Sema666! Предлагаю вам мой вариант решения данной задачи... Приложение: program Predlozenie; var tex, zap: string; i, k, slov, max: integer; prob: boolean; begin max:=0; ReadLn(tex); For i:=1 to length(tex) do begin If tex[i]='.' then If (slov>0) or not(prob) then begin If not(prob) then slov:=slov+1; prob:=false; If max<slov then begin max:=slov; zap:='.'; k:=i-1; While (tex[k]<>'.') and (k>0) do begin zap:=tex[k] + zap; k:=k-1; end; end; slov:=0; end; If (tex[i]=' ') and not(prob) then begin prob:=false; slov:=slov+1; end; If tex[i]=' ' then prob:=true; If tex[i]<>' ' then prob:=false; end; While zap[1]=' ' do zap:=copy(zap,2,length(zap)-1); Writeln(zap); slov:=0; max:=9999; For i:=1 to length(zap) do begin If zap[i] <> ' ' then slov:=slov+1; If (zap[i] = ' ') or (i=length(zap)) then begin If i=length(zap) then slov:=slov-1; If max>slov then max:=slov; slov:=0; end; end; For i:=1 to length(zap) do begin If zap[i] <> ' ' then slov:=slov+1; If (zap[i] = ' ') or (i=length(zap)) then begin If slov=max then begin zap:=copy(zap,1,i-max-1)+copy(zap,i+1,length(zap)); break; end; slov:=0; end; If zap[i] = '.' then zap:=copy(zap,1,length(zap)-max-2)+'.'; end; Writeln(zap); end.

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

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