IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Делимость числа N
Spirite
сообщение 8.12.2005 20:19
Сообщение #1


Гость






помогите решить задачу плиз:
ищвестны след. признаки делимости числа N/
-для делимости на 11 необходимо, чтобы разность между суммой цифр, стоящих на четных местах, и суммой цифр, стоящих на нечетных местах, делилась на 11.
Описать процедуру проверки признаков делимости. Проверить их для различных значений N.


нужно описать делимость не только на 11? как это сделать.....?
 К началу страницы 
+ Ответить 
klem4
сообщение 8.12.2005 20:23
Сообщение #2


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Если знаешь признаки делимости то проблем быть не должно

вот так выделить цифру из числа :

 readln(n);
while (n>0) do begin
writeln(n mod 10);
n := n div 10;
end;


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Spirite
сообщение 8.12.2005 20:57
Сообщение #3


Гость






а как приписать вторую цифру числа к какой-нить переменной?и третю цифру, и четвертую....или это вообще ну нужно так делать? по другому я пока не понимаю как можно сделать....
 К началу страницы 
+ Ответить 
klem4
сообщение 8.12.2005 20:59
Сообщение #4


Perl. Just code it!
******

Группа: Модераторы
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Можно забить в массив, можно использовать счетчик в цикле.


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Spirite
сообщение 8.12.2005 21:03
Сообщение #5


Гость






покажи как плиз
 К началу страницы 
+ Ответить 
volvo
сообщение 8.12.2005 22:28
Сообщение #6


Гость






Var
ArrDigits = array[1 .. 20] of byte;
Count: integer;
begin
readln(n); Count := 0;
while (n>0) do begin
Inc(Count); ArrDigits[Count] := (n mod 10);
n := n div 10;
end;
end.

Теперь у тебя в ArrDigits[1] будет последняя цифра числа, ArrDigits[2] - предпоследняя, и т.д. Всего цифр в числе - Count ...
 К началу страницы 
+ Ответить 
Spirite
сообщение 8.12.2005 22:30
Сообщение #7


Гость






угу, пасиба, ща буду думать... good.gif
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 16:57
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"