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

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

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

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

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

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

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

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

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

10
dr.curse
393 / 349 / 36
Регистрация: 11.10.2010
Сообщений: 1,907
18.03.2012, 21:46 2
Цитата Сообщение от Рыжая007 Посмотреть сообщение
нужно задачу решить в трех вариантах.
один вариант это пробежатся от 1 до И и вывести простые, второе это решето Эратосфена, а третьего никак немогу придумать
0
Рыжая007
0 / 0 / 0
Регистрация: 05.03.2012
Сообщений: 26
20.09.2012, 09:56  [ТС] 3
Составьте программу вывода на экран всех простых чисел, не превосходящих заданного N. Нужно решить циклами For, While, Repeat помогите хотя с одним.
0
КонецСвета
Почетный модератор
7929 / 3900 / 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 / 0
Регистрация: 05.03.2012
Сообщений: 26
20.09.2012, 10:47  [ТС] 5
А можно сделать программу без "function IsSimple"?
0
КонецСвета
Почетный модератор
7929 / 3900 / 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
4008 / 2943 / 3684
Регистрация: 05.06.2014
Сообщений: 14,572
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
4008 / 2943 / 3684
Регистрация: 05.06.2014
Сообщений: 14,572
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

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

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

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


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

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

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