По разделам



Задача Proc 28


Описать функцию IsPrime(N) логического типа, возвращающую TRUE,
если целый параметр N (> 1) является простым числом, и FALSE в противном случае (число, большее 1, называется простым, если оно не имеет
положительных делителей, кроме 1 и самого себя). Дан набор из 10 целых чисел, больших 1. С помощью функции IsPrime найти количество
простых чисел в данном наборе.

Код (C/C++)

#include <stdio.h>
int isprime(int n){
    int i=1;
    while(n%++i!=0);
    return i==n;
}
 
int main(void)
{
    int i, n, res=0;
 
    for (i=1; i<=10; ++i){
        printf("N:");
        scanf("%i", &n);
        res+=isprime(n);
    }
    printf("Res: %i\n",res);
    return 0;
}

Код (Python)

import random
import math

def IsPrime(N):
    if N % 2 == 0 and N > 2: 
        return False
    for i in range(3, int(math.sqrt(N)) + 1, 2):
        if N % i == 0:
            return False
    return True

s = 0
for i in range(0,10):
    x = random.randrange(1,1000)
    #print(x,end="; ")
    s += int(IsPrime(x))
    print(x,":",IsPrime(x))

print("\nAmount of IsPrime:",s)
									

Код (Pascal)

program Proc28;
 
Function IsPrime(N:Integer):Boolean;
var i:integer;
begin
  i:=1;
  IsPrime:=True;
  while (i<N/2) do
    begin
      Inc(i);
      if N mod i = 0 then
       begin
        I:=N;
        IsPrime:=False;
       end;
    end;
end;
 
var
  i,N,Res:Integer;
 
begin
 Res:=0;
 for i:=1 to 10 do
  begin
   Write('N :');
   Readln(N);
 
   if IsPrime(N) then Inc(Res);
  end;
   Writeln(Res);
end.
									




Proc. Абрамян
Proc 1 Просмотров: 13
Proc 2 Просмотров: 14
Proc 3 Просмотров: 12
Proc 4 Просмотров: 12
Proc 5 Просмотров: 14
Proc 6 Просмотров: 9
Proc 7 Просмотров: 12
Proc 8 Просмотров: 13
Proc 9 Просмотров: 12
Proc 10 Просмотров: 10
Proc 11 Просмотров: 14
Proc 12 Просмотров: 10
Proc 13 Просмотров: 12
Proc 14 Просмотров: 13
Proc 15 Просмотров: 13
Proc 16 Просмотров: 11
Proc 17 Просмотров: 22
Proc 18 Просмотров: 13
Proc 19 Просмотров: 14
Proc 20 Просмотров: 9
Proc 21 Просмотров: 12
Proc 22 Просмотров: 12
Proc 23 Просмотров: 11
Proc 24 Просмотров: 12
Proc 25 Просмотров: 9
Proc 26 Просмотров: 11
Proc 27 Просмотров: 14
Proc 28 Просмотров: 17
Proc 29 Просмотров: 21
Proc 30 Просмотров: 25
Proc 31 Просмотров: 13
Proc 32 Просмотров: 12
Proc 33 Просмотров: 9
Proc 34 Просмотров: 17
Proc 35 Просмотров: 9
Proc 36 Просмотров: 11
Proc 37 Просмотров: 12
Proc 38 Просмотров: 10
Proc 39 Просмотров: 13
Proc 40 Просмотров: 9
Proc 41 Просмотров: 13
Proc 42 Просмотров: 11
Proc 43 Просмотров: 11
Proc 44 Просмотров: 12
Proc 45 Просмотров: 14
Proc 46 Просмотров: 10
Proc 47 Просмотров: 9
Proc 48 Просмотров: 14
Proc 49 Просмотров: 10
Proc 50 Просмотров: 12
Proc 51 Просмотров: 18
Proc 52 Просмотров: 11
Proc 53 Просмотров: 13
Proc 54 Просмотров: 11
Proc 55 Просмотров: 13
Proc 56 Просмотров: 10
Proc 57 Просмотров: 11
Proc 58 Просмотров: 11
Proc 59 Просмотров: 8
Proc 60 Просмотров: 11

Комментарии

Чтобы написать комментарии вам нужно войти в систему или зарегистрироваться