Задача: вывести все простые числа до введенного, язык:Pascal.Ввожу 10. Выводит 1, 2, 3. А...

Question

Задача: вывести все простые числа до введенного, язык:Pascal.
Ввожу 10. Выводит 1, 2, 3. А где 5 и 7?
Помогите пожалуйста

---

Comments

Если хотите, выложите свое решение

---

Минимальное простое число - 2, а у вас ещё и 1 выводит...

---

как программу назовешь - так и будет работать)

---

) ЕДИНИЦА НУЖНА (ТАК В ПРИМЕРЕ)

---

Значит неправильно в примере.Цитирую из w i k i p e d i a"Просто́е число́ — это натуральное число, имеющее ровно два различных натуральных делителя: единицу и само себя."Прошу обратить внимание на слово "различных"!

---

ок, вывести 1 и простые

---

я в курсе, что такое простые числа. Ты не знаешь, кто такой Лейбсон, и слава богу

Answer 1

var n,i:integer;
function simply (n:integer):boolean;
 var i,m:integer;
      flag:boolean;
 begin
   if (n<2) <strong>then flag:=false else flag:=true;
   m:=round(sqrt(n));
   for i:=2 to m do
     if (n mod i = 0) then
       begin
         flag:=false;
         break;
       end;
   simply:=flag;
 end;
begin
  readln (n);
  for i:=2 to n do
    if (simply(i)) then write (i,' ');
end.

Comments

Но спасибо