Главная » Студентам, Учителям, Фракталенок, Школьникам

Поиск простых чисел

17 января 2016 4 коммент.

Нижеприведенная программа написана для PascalABC и должна находить все простые числа от 1 до 100, но работает не верно. Кто найдет ошибку?

program shtaa2;
uses crt;
var i, x, k: integer;
begin
writeln(2);
writeln(3);
for x:= 4 to 100 do
begin
for i:= 2 to x-1 do
if x mod i = 0
then
k:=k+1;
if k = 0 then writeln (x)
end;
end.

4 коммент. »

  • pammCum пишет:

    Здравствуйте Уважаемый владелец сайта gcg-studio.ru

    Уведомляем Вас, что до Нового Года осталось Всего несколько недель!
    Новый год – это праздник добра, мечты, новой жизни, а также,
    это время больших продаж и высоких прибылей.

    По статистике портала Яндекс.Маркет, в ноябре, уровень продаж и заказов
    в Российском сегменте интернет-магазинов и сайтов-услуг, вырос на 30 %
    по сравнению с октябрем.

    Мы надеемся что Вы отметили данный рост на своем сайте.
    Если нет, значит Вашему сайту, трагически не хватает рекламы.

    Для тех кто хочет срочно прорекламировать свой сайт,
    С 20 ноября по 3 декабря мы проводим акцию низких цен!

    Всего за 500 рублей, Вы получите
    1. ссылки с 500 сайтов
    2. более 2500 объявлений на форумах

    Не упустите свой шанс!!!

    Подробнее об акции читайте здесь:

    red222.ru/14900.htm

    Цитировать
  • pamomCum пишет:

    Здравствуйте Уважаемый владелец сайта gcg-studio.ru

    Предупрежденаем Вас, что Новый Год не за горами!
    Новогодний ажиотаж уже начался.

    По статистике от Яндекс.Маркет, за прошедшую неделю уровень продаж и заказов
    в Российском сегменте интернет-магазинов и сайтов-услуг, снова вырос, аж на на 8 %
    по сравнению с позапрошлой неделей.

    А на Вашему сайте по-прежнему тишина и покой?
    Если да, то срочно заказывайте рекламу.

    Для тех кто хочет дешево прорекламировать свой сайт,

    С 20 ноября по 3 декабря мы проводим акцию низких цен!

    До конца акции от нашего сайта осталось Всего 7 дней!

    Всего за 500 рублей, Вы получите
    1. ссылки с 500 сайтов
    2. более 2500 объявлений на форумах

    Не упустите свой шанс!!!

    Подробнее об акции читайте здесь:

    red222.ru/14900.htm

    Цитировать
  • MargieLayen пишет:

    Здравствуйте Уважаемый владелец сайта gcg-studio.ru

    В 2015 году, Яндекс официально объявил войну платным ссылкам.

    За 2016 год, более 100 000 сайтов попали под санкции Яндекса за

    приобретение ссылок на биржах. Именно на БИРЖАХ!!!

    Вы все ещё покупаете ссылки на бирже? — Тогда Яндекс идет к Вам!

    Как избежать проблем и защитить сайт, читайте здесь:

    red222.ru/14700.htm

    Цитировать
  • ammyPousa пишет:

    Здравствуйте Уважаемый владелец сайта gcg-studio.ru

    9 декабря Яндекс обновил поисковую выдачу.
    После обновления, из поиска Яндекса было удалено более 5000 сайтов,
    за использование покупных ссылок.

    Скорее всего это «большая чистка» и до Нового Года, Яндекс «Накажет»
    еще несколько тысяч сайтов.

    Советуем проверить Ваш сайта на наличие
    в поисковой выдаче Яндекса.

    Если Вы продвигаете свой сайт с помощью покупных ссылок, Советуем
    от них отказаться и перейти на ссылки с форумов и прочих открытых
    источников, т.к. ссылки с форумов являются более естественными.

    Если Вы не готовы резко отказаться от покупных ссылок, Советуем Вам
    Разбавить Ссылочный профиль Вашего сайта, за счет ссылок с форумов.
    так Вы сможете, хоть Как то обезопасить Ваш сайт.

    Ссылки с форумов Вы можете заказать у нас.
    Оплата производится только После выполнения заказа.
    Мы работаем с февраля 2017 Года и более 1000 человек уже выбрали
    нас для продвижения.

    Не рискуйте Здоровьем Вашего сайта и постарайтесь как можно быстрее
    разбавить его Ссылочный профиль, ссылками с форумов.

    Как избежать проблем и защитить сайт, читайте здесь:

    red222.ru/14700.htm

    Цитировать

Оставить комментарий или два

Вы можете подписаться на комментарии по RSS.