• 
  • 17 November 2013
  Информатика
  • Автор: Алиночкааааааааааа

  

  в двумерном массиве N*N найти простые числа,и если в строках находятся более двух простых чисел то обнулить эти строки.

• 
  • 17 November 2013
  • Ответ оставил: emblerik

  Вот жутко неэффективное решение, для нормального надо писать решето эратосфена, можно нагуглить, если нужна эффективность
  
  function isPrime (a : integer) : boolean;
  var
    i, lim : integer;
  begin
    if n < 4 then begin
    if n = 1 then isPrime := false else isPrime := true; 
  exit;
   end;
    lim := trunc (sqrt (a));
    for i := 2 to lim do
      if a mod i = 0 then
      begin
        isPrime := false;
        exit;
      end;
  isPrime := true;
  end;
  
  var
    a : array of array of integer;
    b : array of integer;
    i, j, n : integer;
  
  begin
    read (n);
    setlength (a, n, n);
    setlength (b, n);
    for i := 0 to n - 1 do
      for j := 0 to n - 1 do
        read (a[i, j]);
    for i := 0 to n - 1 do
    begin
     b[i] := 0;
      for j := 0 to n - 1 do
        if isPrime(a[i, j]) then inc (b[i]);
    end;
    for i := 0 to n - 1 do
  begin
    if b[i] <= 2 then
      for j := 0 to n - 1 do
        write (a[i, j], ' ')
    else 
       for j := 0 to n - 1 do write ('0 ');
    writeln;
  end;
  end.
  
  

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (20.03.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы