Напечатать все простые числа из диапазона [2, n].

@RomaRi0 · Регистрация: 14.01.2016

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

Дано целое п > 2. Напечатать все простые числа из диапазона [2, п].

@YakobsEA · 30.01.2016, 20:09

Pascal

program testprg;
 
var i, j, N: integer;
 
begin
 
// Залдаётся количество обрабатываемых чисел
   read(N);
 
   Write('N = ');
   Writeln(N);
 
// Поиск простых чисел
   for i:=2 to N do
   begin
        for j:=2 to N do
            begin
                 if ((i mod j) = 0) and (i <> j) then
                 begin
                      break;
                 end
                 else if i = j then
                     begin
                          // Вывод простых чисел на консоль
                          Writeln(i);
                     end;
            end;
   end;
 
end.

@schoolteacher · 31.01.2016, 00:00

При:

Pascal

16	for j:=2 to i do

результат тот же.

@SpBerkut · 04.02.2016, 20:30

Сообщение от YakobsEA

for j:=2 to N do

Перебирать весь диапазон нет смыла. Достаточно до Sqrt(I).

@schoolteacher · 04.02.2016, 23:09

Сообщение от SpBerkut

до Sqrt(I)

нельзя, у него не будет работать вывод

Сообщение от YakobsEA

if i = j then Writeln(i);

@RomaRi0 2 / 2 / 4 Регистрация: 14.01.2016 Сообщений: 58
		1
	Напечатать все простые числа из диапазона [2, n]. 30.01.2016, 19:26. Показов 3434. Ответов 4 Метки нет (Все метки) Дано целое п > 2. Напечатать все простые числа из диапазона [2, п]. 0

@SpBerkut Объявлятель переменных 1220 / 406 / 320 Регистрация: 24.09.2011 Сообщений: 1,265
	04.02.2016, 20:30	4
	Сообщение от YakobsEA for j:=2 to N do Перебирать весь диапазон нет смыла. Достаточно до Sqrt(I). 0

@schoolteacher 39 / 39 / 49 Регистрация: 18.12.2015 Сообщений: 127
	04.02.2016, 23:09	5
	Сообщение от SpBerkut до Sqrt(I) нельзя, у него не будет работать вывод Сообщение от YakobsEA if i = j then Writeln(i); 0

Напечатать все простые числа из диапазона [2, n].

Решение