сервис вопросов и ответовПомогите пожалуйста, оченьПомогите пожалуйста, очень надо.
10-11 класс|
|
заданны 4 квадратные матрицы A(n,n),b(n,n),c(n,n),d(n,n) в которых хранятся целые числа. Найти матрицы, в которых на диагоналях есть простые числа.
Ngt
21 янв. 2014 г., 3:07:54 (10 лет назад)
Kykla77790
21 янв. 2014 г., 3:38:17 (10 лет назад)
const n=5;
var
i,j,pa,pb,pc,pd:integer;
a,b,c,d:array[1..n,1..n]of integer;
function prost(n:integer):integer;
begin
var i:integer;
result:=0;
for i:=2 to n div 2 do
if n mod i=0 then
begin
result:=1;
break;
end
end;
procedure otvet(p:integer; s:string);
begin
if p=0 then writeln('На диагоналях матрицы ',s,' есть простые числа')
else writeln('На диагоналях матрицы ',s,' нет простых чисел');
end;
begin
pa:=1;
pb:=1;
pc:=1;
pd:=1;
writeln('Массив А':18,'Массив B':18,'Массив C':18,'Массив D':18);
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(100,900);
b[i,j]:=random(100,900);
c[i,j]:=random(100,900);
d[i,j]:=random(100,900);
if (i=j) or (j=n+1-i) then
begin
pa:=pa*prost(a[i,j]);
pb:=pb*prost(b[i,j]);
pc:=pc*prost(c[i,j]);
pd:=pd*prost(d[i,j]);
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do write(a[i,j]:4);
write('|');
for j:=1 to n do write(b[i,j]:4);
write('|');
for j:=1 to n do write(a[i,j]:4);
write('|');
for j:=1 to n do write(a[i,j]:4);
write('|');
writeln;
end;
otvet(pa,'A');
otvet(pb,'B');
otvet(pc,'C');
otvet(pd,'D');
end.
12332zyf
21 янв. 2014 г., 6:05:21 (10 лет назад)
решать с процедурами?
Ответить
Другие вопросы из категории
Помогите пожалуйста!На языке Паскаль
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
Читайте также
Помогите пожалуйста.
Требуется написать Блокнот на делфи.
Написал всё, кроме кнопки "Сохранить" не пойму как сделать так, что бы при нажатии она работала как и в блакноте обычном.
Помогите пожалуйста :)
ПОМОГИТЕ, ПОЖАЛУЙСТА, ПРОСТО РАЗЪЯСНИВ ЗАДАНИЕ. ПЖЛ)))
.................................................................................................................................
Возьмите прайс лист любого компьютерного магазина или скачайте в интернете;
Составьте конфигурацию компьютера для специалиста вашей профессии;
Подберите программное обеспечение, поясните, для каких целей будут служить данные программы;
Посчитайте общую стоимость данной конфигурации по прайс листу
....................................................................................................................................
Учусь я на бухгалтера-экономиста.
Давайте думать вместе) Допустим, "специалист вашей профессии" - это бухгалтер. Я беру прайс лист (т.е. лист, где написаны наименования и цены всех товаров). Что такое конфигурация? Как её составить по этому прайс листу, если там и так всего цена и наименования известны...?)))) ПО подобрать, допустим, это будет ;MS Office Excel; для создания таблиц, а для данной задачи для подсчёта общей стоимости конфигурации; и ;MS Office World; для писания отчётов. Что же такое эти "конфигурации"?)))
Помогите, пожалуйста) не пропускайте вопрос)
помогите пожалуйста с зачетом по информатике
31 вопрос,нужно выбрать правильный Ответ.спс
очень надо
Помогите, пожалуйста, составить алгоритм для следующей задачи: Вводятся четыре числа. Известно, что 3 из них равны, а 4-ое отличается от 3-ех других.
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
Вы находитесь на странице вопроса "Помогите пожалуйста, оченьПомогите пожалуйста, очень надо.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.