Вход


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

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


     

Email-подписка на новости


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



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




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



  Ваше Имя  



   





Интернет реклама УБС