Задача на вложенные циклы: найти n первых простых чисел

@Иван2221 · Регистрация: 19.10.2017

Author24 — интернет-сервис помощи студентам

Усл : Найти n первых простых чисел (число называется простым, если оно без остатка делится только на 1 и на само себя).
Пожалуйста составте простой и очень подробный код с простыми командами для новичка.

@alex5code · 02.11.2017, 20:36

Про каждую функцию (если не знаешь её) почитай в справке...

Pascal

begin
var n:= ReadlnInteger('N = ');
for var i:=1 to n do begin
var a: integer := 0;
for var j:=1 to n do if  i mod j = 0 then inc(a);
if a = 2 then Write(i,' ');
end;
end.

@volvo · 02.11.2017, 22:26

alex5code, ты находишь не N простых, а простые в интервале от 1 до N. Чтобы было по заданию - вот так:

Pascal

begin
  var n := ReadlnInteger('N = ');
  var i := 0;
  repeat
    inc(i);
    var a: integer := 0;
    for var j := 1 to i do if i mod j = 0 then inc(a);
    if a = 2 then 
    begin
      Write(i, ' ');
      dec(n);
    end;
  until n = 0;
end.

@alex5code · 03.11.2017, 12:12

Да, виноват...

@Иван2221 0 / 0 / 1 Регистрация: 19.10.2017 Сообщений: 38
		1
	Задача на вложенные циклы: найти n первых простых чисел 02.11.2017, 18:46. Показов 2248. Ответов 3 Метки нет (Все метки) Усл : Найти n первых простых чисел (число называется простым, если оно без остатка делится только на 1 и на само себя). Пожалуйста составте простой и очень подробный код с простыми командами для новичка. 0

@alex5code Aimez-vous les baguettes? 193 / 26 / 27 Регистрация: 25.10.2017 Сообщений: 165
	03.11.2017, 12:12	4
	Да, виноват... 0

Задача на вложенные циклы: найти n первых простых чисел

Решение