Статистика
Всего в нашей базе более 4 326 094 вопросов и 6 444 011 ответов!

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

5-9 класс

Ввожу 10. Выводит 1, 2, 3. А где 5 и 7?
Помогите пожалуйста

Masnevdima 10 нояб. 2016 г., 9:24:44 (2 года назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Мяу1558
10 нояб. 2016 г., 11:53:28 (2 года назад)

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 (2 года назад)

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

+ 0 -
89614988870
10 нояб. 2016 г., 13:16:41 (2 года назад)

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

+ 0 -
Daniilurtaev
10 нояб. 2016 г., 15:19:20 (2 года назад)

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

+ 0 -
Lsv1204
10 нояб. 2016 г., 15:57:16 (2 года назад)

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

+ 0 -
Victoria1998
10 нояб. 2016 г., 18:48:19 (2 года назад)

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

Ответить

Другие вопросы из категории

В корзине лежат 100 шаров. Известно, что некоторые из них черного цвета, а некоторые белого. Количество белых шаров - натуральное число. Сколько шаров

белого цвета лежит в корзине, если известно, что из двух любых шаров хотя бы один черный?

Составьте схему алгоритма программы, которая будет

осуществлять ввод чисел до тех пор, пока не будет введено число 17. Как только
будет введено число 17, программа должна вывести количество введенных чисел

Читайте также

Множество А содержит все нечетные числа из диапаазона от 1 до 200

Множесто В - простые числа из этого же диапазона.
Определить дополнение множества В до множества А.

Задачка на Паскале.

Помоги решить задачу с помощью "паскаля"

вывести все нечетные числа от -15 до 15.



Вы находитесь на странице вопроса "Задача: вывести все простые числа до введенного, язык:Pascal.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.