Question

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

Answer 1

var n,i:integer;
function simply (n:integer):boolean;
 var i,m:integer;
      flag:boolean;
 begin
   if (n<2) 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.

Answer 2

Не, нам фунции пока нельзя использовать, но если не будет больше ответов, то отмечу как лучший

Answer 3

Но спасибо