Посчитать количество простых чисел

Вводятся десять натуральных чисел больше 2. Посчитать, сколько среди них простых чисел.

Простым называется натуральное число (кроме 1), делителями которого являются только оно само и 1. Например, число 5 — простое, т.к. его можно нацело разделить только на 5 и 1, а число 6 — сложное, т.к. помимо 6 и 1 делится на 2 и 3.

  1. Предположим изначально, что все десять чисел простые. Присвоим счетчику простых чисел значение 10.
  2. Каждое вводимое число надо проверить на делимость на все натуральные числа начиная с двойки и до квадратного корня до него.
  3. Если хотя бы один из делителей делит число нацело, значит число сложное и надо уменьшить счетчик простых чисел.
  4. В конце программы вывести значение счетчика простых чисел. Оно будет уменьшено на количество введенных сложных чисел, следовательно, будет показывать количество введенных простых чисел.

Pascal


количество простых чисел паскаль
Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
<br>
var<br>
count, i: byte;<br>
n, j: word;<br>
begin<br>
count := 10;<br>
for i:=1 to 10 do begin<br>
read(n);<br>
for j:=2 to trunc(sqrt(n))+1 do<br>
if n mod j = 0 then begin<br>
count := count - 1;<br>
break;<br>
end;<br>
end;<br>
writeln('Простых чисел ', count);<br>
end.<br>
<br> var<br> count, i: byte;<br> n, j: word;<br> begin<br> count := 10;<br> for i:=1 to 10 do begin<br> read(n);<br> for j:=2 to trunc(sqrt(n))+1 do<br> if n mod j = 0 then begin<br> count := count - 1;<br> break;<br> end;<br> end;<br> writeln('Простых чисел ', count);<br> end.<br>

var
count, i: byte;
n, j: word;
begin
count := 10;
for i:=1 to 10 do begin
read(n);
for j:=2 to trunc(sqrt(n))+1 do
if n mod j = 0 then begin
count := count - 1;
break;
end;
end;
writeln('Простых чисел ', count);
end.



15 16 17 18 19 20
21 22 23 24 25
Простых чисел 3

Язык Си

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
<br>
#include <stdio.h><br>
#include <math.h><br>
<br>
main() {<br>
unsigned int n, count, i, j;<br>
count = 10;<br>
for (i=0; i<10; i++) {<br>
scanf("%d", &n);<br>
for (j=2; j<= ((int)sqrt(n))+1; j++) <br>
if (n%j == 0) {<br>
count -= 1;<br>
break;<br>
}<br>
}<br>
printf("Простых чисел: %d\n", count);<br>
}<br>
</math.h></stdio.h>
<br> #include <stdio.h><br> #include <math.h><br> <br> main() {<br> unsigned int n, count, i, j;<br> count = 10;<br> for (i=0; i<10; i++) {<br> scanf("%d", &n);<br> for (j=2; j<= ((int)sqrt(n))+1; j++) <br> if (n%j == 0) {<br> count -= 1;<br> break;<br> }<br> }<br> printf("Простых чисел: %d\n", count);<br> }<br> </math.h></stdio.h>

#include
#include

main() {
unsigned int n, count, i, j;
count = 10;
for (i=0; i<10; i++) {
scanf("%d", &n);
for (j=2; j<= ((int)sqrt(n))+1; j++)
if (n%j == 0) {
count -= 1;
break;
}
}
printf("Простых чисел: %d\n", count);
}



5
6
7
8
9
10
11
12
13
14
Простых чисел: 4

При gcc использовать ключ -lm.

Python


количество простых чисел python (питон)
Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
<br>
from math import sqrt<br>
<br>
count = 10<br>
for i in range(10):<br>
n = int(input())<br>
for j in range(2, int(sqrt(n))+1):<br>
if n%j == 0:<br>
count -= 1<br>
break<br>
<br>
print(count)<br>
<br> from math import sqrt<br> <br> count = 10<br> for i in range(10):<br> n = int(input())<br> for j in range(2, int(sqrt(n))+1):<br> if n%j == 0:<br> count -= 1<br> break<br> <br> print(count)<br>

from math import sqrt

count = 10
for i in range(10):
n = int(input())
for j in range(2, int(sqrt(n))+1):
if n%j == 0:
count -= 1
break

print(count)



13
4
12
30
18
11
23
100
113
997
Количество простых чисел: 5

КуМир

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
<br>
алг простые числа<br>
нач<br>
цел count, i, n, j<br>
count := 10;<br>
нц для i от 1 до 10<br>
ввод n<br>
нц для j от 2 до int(sqrt(n))+1<br>
если mod(n,j) = 0 то <br>
count := count - 1<br>
выход<br>
все<br>
кц<br>
кц<br>
вывод "Простых чисел ", count<br>
кон<br>
<br> алг простые числа<br> нач<br> цел count, i, n, j<br> count := 10;<br> нц для i от 1 до 10<br> ввод n<br> нц для j от 2 до int(sqrt(n))+1<br> если mod(n,j) = 0 то <br> count := count - 1<br> выход<br> все<br> кц<br> кц<br> вывод "Простых чисел ", count<br> кон<br>

алг простые числа
нач
цел count, i, n, j
count := 10;
нц для i от 1 до 10
ввод n
нц для j от 2 до int(sqrt(n))+1
если mod(n,j) = 0 то
count := count - 1
выход
все
кц
кц
вывод "Простых чисел ", count
кон



78
113
101
107
45
110
118
121
201
501
Простых чисел 3

Basic-256

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
<br>
c = 10<br>
for i=1 to 10<br>
input n<br>
for j=2 to (int(sqrt(n))+1)<br>
if n%j = 0 then<br>
c = c - 1<br>
goto go<br>
endif <br>
next j<br>
go:<br>
next i<br>
print "Простых чисел: " + c<br>
<br> c = 10<br> for i=1 to 10<br> input n<br> for j=2 to (int(sqrt(n))+1)<br> if n%j = 0 then<br> c = c - 1<br> goto go<br> endif <br> next j<br> go:<br> next i<br> print "Простых чисел: " + c<br>

c = 10
for i=1 to 10
input n
for j=2 to (int(sqrt(n))+1)
if n%j = 0 then
c = c - 1
goto go
endif
next j
go:
next i
print "Простых чисел: " + c



100
101
102
103
104
105
106
107
108
109
Простых чисел: 4

Подписаться
Уведомить о
guest

0 комментариев
Межтекстовые Отзывы
Посмотреть все комментарии
Pascal

количество простых чисел паскаль

var
count, i: byte;
n, j: word;
begin
count := 10;
for i:=1 to 10 do begin
read(n);
for j:=2 to trunc(sqrt(n))+1 do
if n mod j = 0 then begin
count := count - 1;
break;
end;
end;
writeln('Простых чисел ', count);
end.



15 16 17 18 19 20
21 22 23 24 25
Простых чисел 3

Язык Си

#include
#include

main() {
unsigned int n, count, i, j;
count = 10;
for (i=0; i
Python

количество простых чисел python (питон)

from math import sqrt

count = 10
for i in range(10):
n = int(input())
for j in range(2, int(sqrt(n))+1):
if n%j == 0:
count -= 1
break

print(count)



13
4
12
30
18
11
23
100
113
997
Количество простых чисел: 5
КуМир

алг простые числа
нач
цел count, i, n, j
count := 10;
нц для i от 1 до 10
ввод n
нц для j от 2 до int(sqrt(n))+1
если mod(n,j) = 0 то
count := count - 1
выход
все
кц
кц
вывод "Простых чисел ", count
кон



78
113
101
107
45
110
118
121
201
501
Простых чисел 3

Basic-256

c = 10
for i=1 to 10
input n
for j=2 to (int(sqrt(n))+1)
if n%j = 0 then
c = c - 1
goto go
endif
next j
go:
next i
print "Простых чисел: " + c



100
101
102
103
104
105
106
107
108
109
Простых чисел: 4