Вход

    НОВОЕ В БИБЛИОТЕКЕ
● Простые множители числа
● Числа Каталана
● Числа Фибоначчи
● Числа Армстронга
● Комбинаторика
● Умножение матриц
● Нахождение обратной матр...
● Пример отчета по практик...
● Определитель матрицы 3 п...
● Решето Эратосфена

    НОВЫЕ ФАЙЛЫ
● Сюрреализм на JavaScript
● Программируем для iPhone...
● Структуры данных и алгор...
● Программирование и отлад...
● Windows 7. Скрипты, авто...
● Qt 4.7+. Практическое пр...
● Освой самостоятельно SQL...
● Visual Basic 2012 на при...
● Реферат по информатике -...
● Реферат по информатике -...

    ЛУЧШИЕ ПУБЛИКАЦИИ
● Программирование под And...
● Калькулятор обыкновенных...
● Решаем бесплатно и мгнов...
● Программирование под And...
● Частные производные перв...
● Строим график в полярных...
● Хомяк
● Программирование под And...
● Программирование под And...
● Бухаете? Тогда я иду к в...
    ЛУЧШИЕ МАТЕРИАЛЫ
● ГДЗ - математика - 6 кла...
● ГДЗ - математика - 5 кла...
● ГДЗ - алгебра - 7 класс ...
● ВИМОГИ ДО ОФОРМЛЕННЯ ЗВІ...
● Сумма цифр числа (Паскал...
● ГДЗ - геометрия - 11 кла...
● Сортировка выбором (Паск...
● ГДЗ - геометрия - 10 кла...
● ГДЗ - алгебра - 10-11 кл...
● Пример использования мно...
    10 ЛУЧШИХ ФАЙЛОВ
● Эконометрика
● Шпаргалка по высшей мате...
● Гмурман. Теория вероятно...
● Таблица производных
● Математические формулы
● Программирование на язык...
● Программирование на Си (...
● Таблица интегралов
● Таблицы неопределенных и...
● Фаронов - Turbo Pascal н...

Наши группы в соцсетях
   

Подписка на новости сайта


Конструктор информеров



На сайте всего: 2
Посетителей: 2
Пользователей: 0

ГЛАВНАЯ » БИБЛИОТЕКА » ПРОГРАММИРОВАНИЕ » ПРИМЕРЫ ПРОГРАММ [ ДОБАВИТЬ ]

Простые числа (Паскаль)

Пример. Вывод всех простых чисел до 500

const LIMIT = 500;
var i,j,lim : word;

begin { основная программа }
 writeln; {перевод строки, начинаем с новой строки}
 for i:=1 to LIMIT do
 begin
  j:=2;
  lim:=round(sqrt(i));
  while (i mod j <> 0) and (j <= lim) do inc( j );
  if (j > lim) then write( i,' ' );
 end;
end.




Просмотров [ 15297 ]  ●  19.03.08  ●  Получить ссылку
Комментариев: [ 7 ]
0   Спам
Вовик  ● 07.01.13
Проверь, Маша, выводит единицу....

0   Спам
вася  ● 19.06.11
1 не является простым числом

0   Спам
борис  ● 28.01.11
а 1 не простое число

0   Спам
KiZiK  ● 30.03.10
*маша - будет учитывать если вместе "for i:=1 to LIMIT" написать "for i:=0 to LIMIT"

0   Спам
Анастасия  ● 21.02.10
Спасибо, очень помогло)

0   Спам
владимир  ● 22.12.09
учитывает

0   Спам
маша  ● 11.12.09
эм...как бэ эта прога не учитывает единицу



  Ваше Имя