Вход


    НОВОЕ В БИБЛИОТЕКЕ
● Вычисление предела
● Метод наименьших квадрат...
● Практика в школе для инф...
● Разложение подынтегральн...
● Задача дробово-лінійного...
● Алгебраическое неравенст...
● Пример нахождения потока...
● Найти объем конуса высот...
● Найти объем тетраэдра
● Исследовать на экстремум...
    НОВЫЕ ФАЙЛЫ
● Почтовый клиент
● "Алгоритмы: построе...
● "Теория вероятносте...
● ВИДЕОКУРС Web-программир...
● ВИДЕОКУРС "Продвину...
● Горев А., Макашарипов С....
● А.В.Матросов, М.П.Чаунин...
● А.Александреску - Соврем...
● Turbo Pascal 7.0. Началь...
● Среда программированияTu...

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

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

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


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



На сайте всего: 12
Посетителей: 12
Пользователей: 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.




Просмотров [ 13843 ]  ●  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
эм...как бэ эта прога не учитывает единицу



  Ваше Имя