Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
leonix12
-15 / 1 / 0
Регистрация: 08.04.2016
Сообщений: 125
1

Записать в текстовый файл все простые числа до заданного числа

30.04.2016, 18:05. Просмотров 895. Ответов 1

1. Дано целое число от 2 до 1000. Программа определяет и записывает в текстовый файл все простые числа, находящиеся в диапазоне от двух до числа . Простые числа искать методом «решета Эратосфена». Суть метода: выписываются все целые положительные числа, больше единицы до числа . Выбирается первое из них – число 2. Далее вычеркиваются все числа, кратные числу 2. Затем берется следующее из тех чисел, которые не вычеркнуты. Это число 3. Вычеркиваются все числа, кратные числу 3. Конечно, вычеркиваются все числа, большие числа 3. Само это число не вычеркивается. В конце остаются только простые числа и нули. Нули – это вычеркнутые числа. В файл записываются только ненулевые числа.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2016, 18:05
Ответы с готовыми решениями:

Дан исходный файл в котором хранятся числа.Вывести в новый текстовый файл все числа до минимального ,а затем после максимального
Дан исходный файл в котором хранятся числа.Вывести в новый текстовый файл все числа до минимального...

Записать в файл B все четные числа из файла A, а файл C все нечетные числа
Дан файл А, сосотоящий из целых чисел. Записать в файл B все четные числа из файла A, а файл C все...

Записать в текстовый файл все возможные промежуточные комбинации от числа 79290000000 до числа 79299999999
Добрый день , если возможно написать небольшую програмку , которая перебрала бы и записала куда...

Цикл: Для заданного натурального числа n>2 напечатать все простые числа из диапазона [2,n]
Для заданного натурального числа n>2 напечатать все простые числа из диапазона

Пользователь задаёт число. Компьютер находит все простые числа в диапазоне от 1 до заданного числа.
Ребят, помогите пожалуйста с задачей, очень срочно нужно!!!! Послезавтра нужно сдать.....=(

1
Peoples
1377 / 859 / 757
Регистрация: 06.02.2016
Сообщений: 2,275
Записей в блоге: 18
Завершенные тесты: 5
30.04.2016, 18:53 2
Лучший ответ Сообщение было отмечено leonix12 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
program pr;
 
const
  n = 1000;
 
var
  i, x: integer; a: array[1..32000] of integer;
  f: text;
 
begin
  assign(f, 'c:\gff.txt');
  rewrite(f);
  for i := 2 to (n + 1) div 2 do 
  begin
    x := i * 2;
    while x <= n do 
    begin
      a[x] := 1;
      x := x + i;
    end;
    x := 0;
  end;
  for i := 1 to n do
    if a[i] = 0 then write(i, ' ');
  for i := 1 to n do
    if a[i] = 0 then write(f, i, ' ');
  close(f);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2016, 18:53

В текстовый файл записать целые числа, четные числа переписать в новый файл
В текст. файл записать целые числа четные числа переписать в новый файл.

Напечатать все простые делители заданного числа
программа: написать все простые делители заданного натурального числа.

Из заданного интервала натуральных чисел определить все простые числа
Завтра сдавать, помогите мне, плиз =) 2 Заданы числа А,В,C,D. Выяснить можно ли прямоугольник со...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru