Вопрос по информатике:
Помогите!!! надо решить если не ошибаюсь с помощью массива. Информатика 8 класс. Даю 30 баллов
Пожаловаться
- 05.07.2017 13:23
- Информатика
- remove_red_eye 5044
- thumb_up 16
Ответы и объяснения 1
// PascalABC.NET 3.3, сборка 1625 от 17.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->(i=j) or (j=n-i-1)?1:0);
a.Println(2)
end.
Пример
n= 7
1 0 0 0 0 0 1
0 1 0 0 0 1 0
0 0 1 0 1 0 0
0 0 0 1 0 0 0
0 0 1 0 1 0 0
0 1 0 0 0 1 0
1 0 0 0 0 0 1
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->j=n-i-1?i+1:0);
a.Println(2+n div 10)
end.
Пример
n= 6
0 0 0 0 0 1
0 0 0 0 2 0
0 0 0 3 0 0
0 0 4 0 0 0
0 5 0 0 0 0
6 0 0 0 0 0
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->(i=j) or (j=n-i-1)?1:0);
a.Println(2)
end.
Пример
n= 7
1 0 0 0 0 0 1
0 1 0 0 0 1 0
0 0 1 0 1 0 0
0 0 0 1 0 0 0
0 0 1 0 1 0 0
0 1 0 0 0 1 0
1 0 0 0 0 0 1
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->j=n-i-1?i+1:0);
a.Println(2+n div 10)
end.
Пример
n= 6
0 0 0 0 0 1
0 0 0 0 2 0
0 0 0 3 0 0
0 0 4 0 0 0
0 5 0 0 0 0
6 0 0 0 0 0
Пожаловаться
- 06.07.2017 07:17
- thumb_up 19
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы