Задача: вывести все простые числа до введенного, язык:Pascal.

+ 0 -

Мяу1558

10 нояб. 2016 г., 11:53:28 (7 лет назад)

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.

+ 0 -

Medved200046

10 нояб. 2016 г., 12:32:18 (7 лет назад)

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

+ 0 -

89614988870

10 нояб. 2016 г., 13:16:41 (7 лет назад)

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

+ 0 -

Daniilurtaev

10 нояб. 2016 г., 15:19:20 (7 лет назад)

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

+ 0 -

Lsv1204

10 нояб. 2016 г., 15:57:16 (7 лет назад)

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

+ 0 -

Victoria1998

10 нояб. 2016 г., 18:48:19 (7 лет назад)

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