матрицу размером 9 на 9 заполнить числами от 3 до 15
Матрицу размером 9 на 9 заполнить числами от 3 до 15 Найти сколько в этой матрице протстых чисел
Задать свой вопрос1 ответ
Кирилл Приваловский
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
function IsPrime(n:integer):boolean;
begin
Result:=Range(2,Round(sqrt(n))).All(i-gt;n mod ilt;gt;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
function IsPrime(n:integer):boolean;
begin
Result:=Range(2,Round(sqrt(n))).All(i-gt;n mod ilt;gt;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
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов