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

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

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

 
Closed Topic Открыть новую тему 
> задачко), О Великие, языка сего...
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 6
Пол: Мужской

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


А дело, собсно, в чем...
>>На интервале (1000;9999) найти все простые числа, у которых сумма перфой и и второй циф0р равняется сумме третей и четвертой.

есть идея, относительно цифр: (число div 1000) и будет первой цифрой; с остальными - по анологии.
а как быть с нахождением всех простых чисел?


--------------------
Тщетны надежды и усилья,
гранит науки покусать,
не те уж зубы, руки, крылья,
ну что ж... тогда хоть полизать... ;0)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Гость






Цитата
а как быть с нахождением всех простых чисел?
Искать по форуму (особенно в FAQ-е), там есть функция IsSimple, вот каждое число ей и проверяй. Если оно таки простое - то дальше делается уже твоя проверка, иначе и проверять ничего не надо - сразу переходить к следующему числу.

Цитата
с остальными - по анологии.
Хотелось бы посмотреть на эту аналогию... С первой и последней - легко, со второй и третьей цифрами - уже сложнее...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 6
Пол: Мужской

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


volvo, однако, прав.
а что если сделать mod 1000, ф потом div 100 от числа(или чтото в єтом духе)?


--------------------
Тщетны надежды и усилья,
гранит науки покусать,
не те уж зубы, руки, крылья,
ну что ж... тогда хоть полизать... ;0)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


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

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

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


 ! 
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...



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


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

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


Что - то в этом роде ?
uses crt;
var k : integer;
function Simple (n : integer) : boolean;
var sum, i : integer;
begin
sum := 0;
for i := 1 to N do if n mod i = 0 then inc (sum);
if sum = 2 then Simple := True else Simple := False;
end;
function Check (n : integer) : boolean;
var cifri : array [1..4] of integer;
i : integer;
begin
i := 5;
while n > 0 do
begin
dec (i);
cifri[i] := n mod 10;
n := n div 10;
end;
if cifri[1] + cifri[2] = cifri[3] + cifri[4] then Check := True else Check := False;
end;
begin
Clrscr;
for k := 1000 to 9999 do if Simple(k) and Check(k) then writeln (k);
end.


Сообщение отредактировано: Tan -


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6





Группа: Пользователи
Сообщений: 6
Пол: Мужской

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


klem4, учту, исправлюсь))
Tan , вроде да)ришпект и уважуга, как говорится. приду домой, затестю. привлекаед компактность(сам уже прикинул вариацию, более обьемную))))


--------------------
Тщетны надежды и усилья,
гранит науки покусать,
не те уж зубы, руки, крылья,
ну что ж... тогда хоть полизать... ;0)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #7


Уникум
*******

Группа: Пользователи
Сообщений: 6 823
Пол: Мужской
Реальное имя: Лопáрь (Андрей)

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


Нарушения зашкаливают, реакции - ноль.
 ! 
Тема закрыта



--------------------
я - ветер, я северный холодный ветер
я час расставанья, я год возвращенья домой
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

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

 





- Текстовая версия 22.09.2020 12:50
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name