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

1
как программу назовешь - так и будет работать)
) ЕДИНИЦА НУЖНА (ТАК В ПРИМЕРЕ)
Значит неправильно в примере.
Цитирую из w i k i p e d i a
"Просто́е число́ — это натуральное число, имеющее ровно два различных натуральных делителя: единицу и само себя."
Прошу обратить внимание на слово "различных"!
ок, вывести 1 и простые
я в курсе, что такое простые числа. Ты не знаешь, кто такой Лейбсон, и слава богу

Ответы и объяснения

2014-02-16T12:47:37+00:00
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.