Определить кол-во простых чисел,содержащихся в заданной последовательности n1 n2.. n20 (алгоритм Паскаль)

+ 0 -

FIFA13poshla

31 марта 2015 г., 6:31:44 (9 лет назад)

function IsPrime(n: integer): boolean;
  // Проверка, является ли число простым
var
  p: integer;
  found: boolean;
begin
  found := (n mod 2 = 0);
  p := 3;
  while (not found) and (sqr(p) <= n) do
  begin
    found := (n mod p = 0);
    p := p + 2
  end;
  IsPrime := (not found) or (p = 2)
end;

const
  n = 20;

var
  i, k: integer;
  a: array[1..n] of integer;

begin
  Write('Введите 20 целых чисел через пробел: ');
  for i := 1 to n do
  begin
    Read(a[i]);
  end;
  k := 0;
  for i := 1 to n do
    if IsPrime(a[i]) then k := k + 1;
  Writeln('Количество простых чисел- ', k)
end.

Тестовое решение:

Введите 20 целых чисел через пробел: 5 36 83 1673 339 73 34 14623 7 173 62 45 3463 326 28 934 345 24 4526 1143
Количество простых чисел- 6

+ 0 -

Katrina992011

31 марта 2015 г., 9:14:03 (9 лет назад)

Последовательность - просто набор чисел, вводимых с клавиатуры?

+ 0 -

Natali1234

31 марта 2015 г., 11:02:46 (9 лет назад)

Ладно...принимаем решение самостоятельно