Вывести все простые числа, до введенного числа

@Aiklence · Регистрация: 04.11.2013

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

Помогите пожалуйста

Пользователь вводит число. Вывести все простые числа, до введенного числа.
(Например пользователь ввел 7, нужно вывести 5, 3, 1)

Добавлено через 1 час 39 минут
help me please

Добавлено через 2 часа 1 минуту
Heelp

@erl27 · 21.11.2013, 02:02

Pascal

var
  k, i, N: integer;
  bln: boolean;
  
begin
  repeat
    write(' N = ');
    readln(N);
    writeln;
  until N > 1;
  write(' ', 2);
  i := 3;
  while i < N do begin
    k := 3;
    bln := true;
    while k <= round(sqrt(i)) do begin
      if i mod k <> 0 then inc(k, 2)
      else begin 
        bln := false; 
        break 
      end
    end;
    if bln then write(' ', i);
    inc(i, 2);
  end
end.

@Aiklence 1 / 1 / 0 Регистрация: 04.11.2013 Сообщений: 36
		1
	Вывести все простые числа, до введенного числа 21.11.2013, 00:36. Показов 4111. Ответов 1 Метки нет (Все метки) Помогите пожалуйста Пользователь вводит число. Вывести все простые числа, до введенного числа. (Например пользователь ввел 7, нужно вывести 5, 3, 1) Добавлено через 1 час 39 минут help me please Добавлено через 2 часа 1 минуту Heelp 0

	21.11.2013, 02:02

Вывести все простые числа, до введенного числа

Решение