(Паскаль) Составьте программку вывода на экран всех обычных чисел, не превосходящих

(Паскаль) Составьте программку вывода на экран всех простых чисел, не превосходящих данного N. Обычным именуется натуральное число больше единицы, имеющее только два делителя: единицу и само это число. Для проверки подготовить код программки и результаты ее работы.

Задать свой вопрос
1 ответ

Код программы

program raf105;

var i,j,o,n:integer;

begin

write('Введите число N: ');

readln(n);

writeln('Вывод: ');

for i:=2 to n-1 do

begin

 o:=0;

 for j:= 1 to i do

   if (i mod j)=0

     then o:= o+1;

 if o=2

   then writeln(i);

end;

end.

     

Результаты работы программки

Введите число N: 15

Вывод:

2

3

5

7

11

13

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт