в электронной таблице состоящей из трёх строк и трёх столбцов записаны все числа от 1 до 9 так что сумма чисел в каждой строке каждом столбце и на обеих диагоналях одинакова какое число записано в ячейку А1
Ты задаешь изначальный код, например, робот двигается шаг назад, потом шаг вперед. Недостаток в том, что без связи ты не сможешь изменить, к примеру, маршрут, не усовершенствуешь.
Крайне грубо говоря, ты нанял киллера для учителя математики, из-за плотного графика, киллер назначил убийство на пару дней вперед, никакой больше связи у тебя с исполнителем нет, но ты передумал убивать математичку, она поставила тебе 5, но сообщить об этом киллеру ты не можешь. Это всего лишь пример.
Можно
Объяснение:
Ты задаешь изначальный код, например, робот двигается шаг назад, потом шаг вперед. Недостаток в том, что без связи ты не сможешь изменить, к примеру, маршрут, не усовершенствуешь.
Крайне грубо говоря, ты нанял киллера для учителя математики, из-за плотного графика, киллер назначил убийство на пару дней вперед, никакой больше связи у тебя с исполнителем нет, но ты передумал убивать математичку, она поставила тебе 5, но сообщить об этом киллеру ты не можешь. Это всего лишь пример.
Решение
gekasa, Я не силен в дополнительных диагоналях) вот главную и побочную знаю. А дополнительная - это как?
Добавлено через 35 минут
gekasa, Вот для суммы главной и побочной, для остальных думаю поймешь или напиши (нарисуй) как выглядят дополнительные диагонали.
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
program mas1;
const
nmax=100;
var
a: array[1..nmax,1..nmax] of integer;
n,i,j,sum,sum1: integer;
begin
randomize;
write('Ââåäèòå ðàçìåð ìàòðèöû n: ');
readln(n);
writeln('Ìàòðèöà:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(150)-50;
write(a[i,j]:5);
end;
writeln;
end;
sum:=0;
sum1:=0;
j:=1;
for i:=1 to n do
sum:=sum+a[i,i];
for i:=n downto 1 do
begin
sum1:=sum1+a[i,j];
j:=j+1;
end;
writeln('Ñóììà ãëàâíîé äèàãîíàëè: ',sum);
writeln('Ñóììà ïîáî÷íîé äèàãîíàëè: ',sum1);
writeln;
end.
0