Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Новое направление Портала RusFAQ.ru:
MosHoster.ru - Профессиональный хостинг

Народное голосование ПРЕМИИ РУНЕТА-2007!
Голосуем за RusFAQ.ru >>

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

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

Выпуск № 494
от 20.11.2007, 22:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 243, Экспертов: 47
В номере:Вопросов: 3, Ответов: 4


Вопрос № 109529: Здраствуйте, уважаемые эксперты. У меня две почти аналогичные задачи. 1) Дано натуральное число n (n ≤ 100). В предположении, что n ≥ 10, найти предпоследнюю цифру числа n. 2) Дано натуральное число n (n ≤ 9999). Верно ли, ч...
Вопрос № 109533: Здравствуйте, уважаемые эксперты. 1) Даны действительное число а, натуральное число n. Вычислить: 1/а+1/(а(а+1))+...+1/(а(a+1)...(a+n)) 2) Даны натуральные числа n, m. Получить сумму m последних цифр числа n. Спасибо заранее большое=)...
Вопрос № 109599: Здравствуйте! если вас не затруднит Помогите пожалуйста решить такую задачу в Паскале: В одномерном массиве с четным кол-вом элементов 2*n находятся кординаты N точек плоскости. Они располагаются в следующем порядке x1.y1,x2,y2,x3,y3, и ...

Вопрос № 109.529
Здраствуйте, уважаемые эксперты. У меня две почти аналогичные задачи.
1) Дано натуральное число n (n ≤ 100). В предположении, что n ≥ 10, найти предпоследнюю цифру числа n.
2) Дано натуральное число n (n ≤ 9999). Верно ли, что все четыре цифры числа различны?
Очень спасибо=)
Отправлен: 15.11.2007, 12:30
Вопрос задал: Аксенов Антон (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зиновьев Дмитрий Владимирович
Здравствуйте, Аксенов Антон!
1.
LastDigit = ((n div 10) mod 10);
2.
a := n div 10;
b := ((n div 10) mod 10);
c := ((n div 100) mod 10);
d := ((n div 1000) mod 10);
if (a<>b)
and (a<>c)
and (a<>d)
and (b<>c)
and (b<>d)
and (c<>d)
then Writeln('Верно');
Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 7-ой класс)
Ответ отправлен: 15.11.2007, 13:23

Отвечает: Limelight
Здравствуйте, Аксенов Антон!
Привожу коды программ:
Удачи!:)

Приложение:

Ответ отправил: Limelight (статус: 1-ый класс)
Ответ отправлен: 16.11.2007, 00:21


Вопрос № 109.533
Здравствуйте, уважаемые эксперты.
1) Даны действительное число а, натуральное число n. Вычислить:
1/а+1/(а(а+1))+...+1/(а(a+1)...(a+n))
2) Даны натуральные числа n, m. Получить сумму m последних цифр числа n.
Спасибо заранее большое=)
Отправлен: 15.11.2007, 13:08
Вопрос задал: Аксенов Антон (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Зиновьев Дмитрий Владимирович
Здравствуйте, Аксенов Антон!
1.
sum := 0
for i := 0 to n do
sum := sum + 1/((a+i)*sum)
2.
sum := 0;
for i := 1 to m do
begin
sum := sum + (n mod 10);
n := n div 10;
end;
Ответ отправил: Зиновьев Дмитрий Владимирович (статус: 7-ой класс)
Ответ отправлен: 15.11.2007, 13:18


Вопрос № 109.599
Здравствуйте!
если вас не затруднит Помогите пожалуйста решить такую задачу в Паскале:

В одномерном массиве с четным кол-вом элементов 2*n находятся кординаты N точек плоскости. Они располагаются в следующем порядке x1.y1,x2,y2,x3,y3, и т.д. (x1.y1 – целые) определ номера точек которые могут являться вершинами квадрата

Заранее спасибо.ksana
Отправлен: 15.11.2007, 19:29
Вопрос задала: Коваленко Ксения (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Зенченко Константин Николаевич
Здравствуйте, Коваленко Ксения!

Смотрите приложение.
Удачи!

Приложение:

---------
И только наступив на грабли мы приобретаем драгоценный опыт!

Ответ отправил: Зенченко Константин Николаевич (статус: Специалист)
Ответ отправлен: 19.11.2007, 14:56
Оценка за ответ: 5


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


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

В избранное