Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 34, средняя оценка - 4.94
Рыжая007
0 / 0 / 2
Регистрация: 05.03.2012
Сообщений: 26
#1

Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N - Pascal

18.03.2012, 21:42. Просмотров 5935. Ответов 10
Метки нет (Все метки)

Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N.Пожалуйста помогите,нужно задачу решить в трех вариантах.Заренее спасибо!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
18.03.2012, 21:42
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N (Pascal):

Составьте программу вывода на экран всех натуральных чисел
Составьте программу вывода на экран всех натуральных чисел, не превосходящих N...

Составить программу вывода на экран простых чисел их первых N натуральных чисел..
Составить программу вывода на экран простых чисел их первых N натуральных...

Вложеные циклы.Составить программу вывода на экран простых чисел из первых N натуральных чисел используя решето Эратосфена.
Составить программу вывода на экран простых чисел из первых N натуральных чисел...

Вывод на экран всех натуральных чисел, не превосходящих заданное число
1 задача: Напишите программу вывода на экран всех натуральных чисел, не...

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

Составьте программу вывода на экран песочных часов
1. Напишите программу замены в тексте всех букв "a" на "o" и наоборот....

10
dr.curse
392 / 348 / 36
Регистрация: 11.10.2010
Сообщений: 1,907
18.03.2012, 21:46 #2
Цитата Сообщение от Рыжая007 Посмотреть сообщение
нужно задачу решить в трех вариантах.
один вариант это пробежатся от 1 до И и вывести простые, второе это решето Эратосфена, а третьего никак немогу придумать
0
Рыжая007
0 / 0 / 2
Регистрация: 05.03.2012
Сообщений: 26
20.09.2012, 09:56  [ТС] #3
Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N. Нужно решить циклами For, While, Repeat помогите хотя с одним.
0
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
20.09.2012, 10:40 #4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var i,n: integer;
 
function IsSimple(c: integer): boolean;
var j: integer;
begin
IsSimple:=true;
for j:=2 to c-1 do
    if c mod j=0 then IsSimple:=false;
end;
 
begin
write('n='); readln(n);
for i:=2 to n do
    if IsSimple(i) then write(i,' ');
end.
0
Рыжая007
0 / 0 / 2
Регистрация: 05.03.2012
Сообщений: 26
20.09.2012, 10:47  [ТС] #5
А можно сделать программу без "function IsSimple"?
0
КонецСвета
Почетный модератор
7928 / 3899 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
20.09.2012, 10:51 #6
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var i,j,n,k: integer;
 
begin
write('n='); readln(n);
for i:=2 to n do
    begin
    k:=0;
    for j:=2 to i-1 do
        if i mod j=0 then k:=k+1;
    if k=0 then write(i,' ');
    end;
end.
1
inna24
0 / 0 / 0
Регистрация: 10.06.2016
Сообщений: 41
20.04.2017, 17:34 #7
КонецСвета, а на делфи можно плииз , не в консолном режиме
0
Alexandr212
94 / 91 / 110
Регистрация: 28.11.2016
Сообщений: 504
20.04.2017, 19:38 #8
inna24, А вы еще более давнюю тему не нашли? Данный пользователь был последний раз на форуме аж в 2013 году...
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
20.04.2017, 20:34 #9
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
  i, j, n, k: integer;
 
begin
  write('n=');
  readln(n);
  for i := 2 to n do
  begin
    k := 0;
    for j := 2 to i - 1 do
      if i mod j = 0 then
        k := k + 1;
    if k = 0 then
      write(i, ' ');
  end;
  readln;
end.
1
inna24
0 / 0 / 0
Регистрация: 10.06.2016
Сообщений: 41
25.04.2017, 09:16 #10
ZX Spectrum-128, а в не консольном режиме можно? Чтобы была форма☺
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3858 / 2845 / 3631
Регистрация: 05.06.2014
Сообщений: 13,943
25.04.2017, 10:09 #11
inna24, устроит?
1
Вложения
Тип файла: zip Простые числа Форма.zip (228.1 Кб, 4 просмотров)
25.04.2017, 10:09
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.04.2017, 10:09
Привет! Вот еще темы с решениями:

Составьте программу заполнения и вывода на экран таблицы Пифагора(умножения).
Двумерные массивы.(с процедурами и функциями). Составьте программу заполнения...

Составьте программу вывода на экран наибольшего делителя натурального числа T , большего 1
помогите составить программу по следующим задачам 1. Составьте программу...

Составьте программу вычисления суммы квадратов простых чисел,лежащих в интервале (M,N)
Составьте программу вычисления суммы квадратов простых чисел,лежащих в...

Написать программу нахождения всех натуральных чисел, которые можно представить в виде произведения двух простых чисел
Дано натуральное число Р. Написать программу нахождения всех натуральных чисел,...


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

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

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