|
#1
|
||||
|
||||
простые числа
Пожалуйста! Очень нужен код для задачки:
Найти в интервале от a-b простые числа, разность между которыми равна введенному числу(например 2) Результат должен иметь вид: 3-5 5-7 7-9 9-11 и т.д. |
#2
|
||||
|
||||
В твоем диапазоне проверяешь все числа на простое...
Код:
n: integer; // проверяемое число d: integer; // делитель r: integer; // остаток от деления n на d begin n := StrToInt(Edit1.text); d := 2; // сначала будем делить на два repeat r := n mod d; if r <> 0 {// n не разделилось нацело на d} then d := d + 1; until r = 0; // повторять пока не найдено число на n делится без остатка label2.caption := Edit1.text; if d = n then label2.caption := label2.caption + ' - простое число.' else label2.caption := label2.caption + ' - обычное число.'; Потом по очереди начиная с первого элемента вычитаешь из него остальные...если разность введенное число, то добавляешь пару в новый двумерный массив... Подумай, сделай наброски и приходи еще раз))) В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
||||
|
||||
ох.Спасибо большое ,из всего понятно только слово массив...
Попробую |