Матрицу размером 9 на 9 заполнить числами от 3 до 15 Определить сколько в этой матрице протстых чисел

Матрицу размером 9 на 9 заполнить числами от 3 до 15 Определить сколько в этой матрице протстых чисел
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 function IsPrime(n:integer):boolean; begin   Result:=Range(2,Round(sqrt(n))).All(i->n mod i<>0) end; begin   var n:=9;   var a:=MatrixRandom(n,n,3,15);   var k:=0;   for var i:=0 to n-1 do begin     for var j:=0 to n-1 do begin       Write(a[i,j]:3);       if IsPrime(a[i,j]) then Inc(k)       end;     Writeln     end;   Writeln('Простых чисел: ',k) end. Тестовое решение:  12 15 13  5  8  5 11 14  9   7  7 14 10  5 10  9 12  3   8  8 10  7 12 14  7  6  9  13 13  7  6  4  9 13 10 11  15  4 11 12 11  4 12  8  9   7  6 14  5 10 15  6  7  9   4  7  6 14 13  5 11 13  3   4  4  5  7 12 10 14  9 11   7 12 13  8 10  6  8  3 15 Простых чисел: 32
Не нашли ответ?
Ответить на вопрос
Похожие вопросы