[suxxl]

Вот на си, влом на паскаль переделывать - сам сделаешь (вроде работает):
#include<stdio.h>
#include<conio.h>
void main()
{
printf("\n Простые числа от 1 до 1000 :";
int i,j,k;
for(i=1; i<=1000; i++)
 {
 k=0;
 for(j=2; j<i; j++)
 if (int(i/j)==(float)i/(float)j) k++;
 if (k==0) printf(" %i",i);
 }
getch();
}

сам добавишь чтоб до нужного числа было - ломает делать считывание с клавиатуры...

[hasherfrog]

suxxl
Во-первых, Вы неправильно поняли задачу. Прочитайте еще раз пост  Only keeper'а. Во-вторых, Ваш пример содержит крайне неэффективный алгоритм и проверки. Крайне.

Only keeper
Если Вы, молодой человек, будете перекладывать свои задачи на других, всю оставшуюся жизнь у Вас будет

паскаль глючный

[suxxl]

2 hasherfrog:
да, немного невнимательно прочитал...
а насчет алгоритма - я это тут быстренько в форме написал и не компилил даже...
а вообще ты прав, самому нужно думать, а не других просить ...

[Sonic]

Как понимать: "раскладовало на всевозможнае простые числа", может на простые множители или...

[hasherfrog]

Есть у меня подозрение, что Only keeper сам некорректно привел условия задачи. Что-то мне подсказывает, что надо разложить четное число на два простых числа. Потому что если не на два, то вариантов - огромное количество.  Например 4 = 1 +1 + 1 + 1, 2+ 1 + 1, 3 + 1, 2 + 2. А 9998?
Кстати, почему в условиях "четное" -  потому что любое нечетное (кроме 1) - это четное + нечетное.
Вообще, емнип, данная задача имеет отношение к алгоритму шифрования данных RSA.
Короче, меня самого зацепило...

Код:

 #include <stdio.h> 
#include <math.h> 
 
int issample(unsigned int n) 
{ 
    if (!n) return 0; 
 
    if (n <= 23) 
    { 
        static unsigned int firstten[] = { 1, 2, 3, 5, 7,  11, 13, 17, 19, 23 }; 
        for (int j = 0; j < 10; j++) 
            if (n == firstten[j]) return 1; 
        return 0; 
    } 
 
    if (!(n&1)) return 0; 
    unsigned int limit = (unsigned int)(sqrt((double)n)) + 1; 
    for (unsigned int k = 3; k < limit; k+=2) 
        if (!(n%k)) return 0; 
 
    return 1; 
} 
 
int main(void) 
{ 
    for (unsigned int i = 2; i < 1000; i+=2) 
    { 
        for (unsigned int j = 1; j < i/2; j++) 
            if (issample(j) && issample(i - j)) 
                printf("%u = %u + %u\n", i, j, i - j); 
    } 
 
    return 0;

Хотя думал я над алгоритмом (и вообще над задачей) долго, сам код написан минут за 20, так что ошибки могут быть...