|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
03.11.2007, 18:06 | #1 |
Пользователь
Регистрация: 25.06.2007
Сообщений: 40
|
Как решить задачу?
На интервале 1000....1999 найти все простые числа каждое и которых обладает тем свойством что сумма первой и второй его Цифр записи этого числа равна сумме третьей и четвёртой цифре.
Как решить?
Граф дракула наш кумир
Патамушта он ВОМПИР! |
03.11.2007, 20:00 | #2 |
Регистрация: 02.11.2007
Сообщений: 7
|
Думаю что это подойдет:
procedure TForm1.Button1Click(Sender: TObject); var s: string[4]; x1, x2, x3, x4: integer; i: integer; begin for i:=1000 to 1998 do begin s:=inttostr(i); x1:=strtoint(copy(s, 1, 1)); x2:=strtoint(copy(s, 2, 1)); x3:=strtoint(copy(s, 3, 1)); x4:=strtoint(copy(s, 4, 1)); if (x1+x2)=(x3+x4) then Memo1.Lines.Add(s); end; end; |
03.11.2007, 20:25 | #3 | |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
Не подходит
Цитата:
Например: 2, 3, 5, 7, 11, 13, 17, 19, 23, 29... Данный код показывает все числа у которых: сумма первой и второй цифры равна сумме третьей и четвёртой цифре. Автору нужно все простые числа у кторых: сумма первой и второй цифры равна сумме третьей и четвёртой цифре.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
|
03.11.2007, 21:24 | #4 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 27
|
Простые числа можно проверять так: делаем счётчик от 1000 до 1999. В нём делаем ещё один счётчик, но уже от 1 до 1999. Делим нацело переменную первого счётчика на переменную второго и сравниваем остаток от целого деления с нулём. Если делится, то какой-то переменной n присваевается значение n+1 (изначально n=0). Если n=2, то это значит, что нашлись лишь два числа с промежутка от 1 до 1999 на которых число первого счётчика делится нацело. Тогда число первого счётчика записываем в новый массив. В результате у нас будет массив простых чисел с промежутка от 1000 до 1999. Ну а как делать дальше уже говорил shtuceron. Просто делаем не со всеми числами, а с числами из нового массива простых чисел.
Надеюсь, что я всё понятно объяснил. Извиняюсь, что без кода (времени нет)
Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.
Scientia potentia est |
03.11.2007, 21:26 | #5 |
Пользователь
Регистрация: 25.06.2007
Сообщений: 40
|
Пасиба shtuceron но что значит ((string[4] 4 в скобках это что? ))
(((x1:=strtoint(copy(s, 1, 1)) что такое copy и что там за цифры? ))))) и что такое i ???
Граф дракула наш кумир
Патамушта он ВОМПИР! |
03.11.2007, 21:36 | #6 |
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Странно... незная этого решаете задачи, и просите полного ответа ввиде кода. Я боюсь спрашивать зачем Вам это 4 - это всеголиш ссылка на байт или по русски это 4й символ строки - ну а copy - явно написано Копировать , указан 1й параметр строка а потом индекс и сколько. Это все написано и выводиться при нажатии на copy (например) F1 - клавиши. Ах да а i - переменная и если это так не заметно то переменная i участвует в цикле перебора
|
03.11.2007, 21:42 | #7 |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
copy(st, index, count) - функция типа string; копирует из строки st count символов, начиная с символа index.
i - переменная цикла, счетчик. BETONOMESHALKA решение shtuceron не коректно, согласно поставленному заданию. Вот тут много чего полезного для тебя, читай.
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
03.11.2007, 23:17 | #8 |
Реанимируюсь...
Участник клуба
Регистрация: 19.07.2007
Сообщений: 1,445
|
Bсе простые числа на интервале 1000..1999 сумма первой и второй цифeр равна сумме третьей и четвёртой
Немного топорно, но делает то что надо.
Код:
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живёте.
Правила форума => Правила раздела => Для общего развития => Помощь студентам => Перед тем, как создавать тему, скачайте себе... P.S.: форум не песочница (с)
название статьи на сайте MS: "Отмена принудительного отключения автоматического запуска в реестре Windows" |
04.11.2007, 00:19 | #9 |
Пользователь
Регистрация: 25.06.2007
Сообщений: 40
|
Пасиба al delta. Почитаю
Граф дракула наш кумир
Патамушта он ВОМПИР! |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу... | Spiker01 | Паскаль, Turbo Pascal, PascalABC.NET | 27 | 17.06.2008 18:58 |
Помогите решить задачу | Chuvak | Общие вопросы C/C++ | 3 | 07.06.2008 09:48 |
Помогите решить задачу | Vegus | Общие вопросы C/C++ | 1 | 07.05.2008 17:49 |