logo
Вход Регистрация Спроси Mozg AI
М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
lenabogdanv1
lenabogdanv1
19.10.2021 08:15 •  Математика

Какие небесные координаты не меняются со временем вследствие суточного вращения небесной сферы

👇
Увидеть ответ
Ответ:
atodyshevoxz3kh
atodyshevoxz3kh
19.10.2021
Небесные координаты  t,d
4,4(28 оценок)
Открыть все ответы
Ответ:
geniip
geniip
19.10.2021
Можно, например, так:
 11 10  4
  5  9  6
  8  3  7

Всего есть 72 решения данной задачи.

uses math;

var a,b,c,d,e,f,g,h,i: integer;
var matrix: array [1..9] of integer;
var counter: integer;

procedure check_matrix();
label repeated;
var i:integer;
var storage: array [1..9] of integer;
begin
        for i := 1 to 9 do begin
                storage[i] := 0;
        end;

        for i := 1 to 9 do begin
                if storage[matrix[i] - 2] <> 0 then begin
                        goto repeated;
                end;
                storage[matrix[i] - 2] := 1;
        end;

        if (matrix[2] * matrix[3] = matrix[4] * matrix[7]) and (matrix[4] * matrix[6] = matrix[2] * matrix[8]) and (matrix[7] * matrix[8] = matrix[3] * matrix[6]) then begin
                writeln('', matrix[1]:3, '', matrix[2]:3, '', matrix[3]:3);
                writeln('', matrix[4]:3, '', matrix[5]:3, '', matrix[6]:3);
                writeln('', matrix[7]:3, '', matrix[8]:3, '', matrix[9]:3);
                writeln();
                counter := counter + 1;
        end;

        repeated:;
end;

begin

counter := 0;

for a:=1 to 9 do begin
matrix[1] := a + 2;
for b:=1 to 9 do begin
matrix[2] := b + 2;
for c:=1 to 9 do begin
matrix[3] := c + 2;
for d:=1 to 9 do begin
matrix[4] := d + 2;
for e:=1 to 9 do begin
matrix[5] := e + 2;
for f:=1 to 9 do begin
matrix[6] := f + 2;
for g:=1 to 9 do begin
matrix[7] := g + 2;
for h:=1 to 9 do begin
matrix[8] := h + 2;
for i:=1 to 9 do begin
matrix[9] := i + 2;

check_matrix();

end; end; end; end; end; end; end; end; end;

writeln('total: ', counter);

end.
4,8(54 оценок)
Ответ:
vickyin1519
vickyin1519
19.10.2021
Можно, например, так:
 11 10  4
  5  9  6
  8  3  7

Всего есть 72 решения данной задачи.

uses math;

var a,b,c,d,e,f,g,h,i: integer;
var matrix: array [1..9] of integer;
var counter: integer;

procedure check_matrix();
label repeated;
var i:integer;
var storage: array [1..9] of integer;
begin
        for i := 1 to 9 do begin
                storage[i] := 0;
        end;

        for i := 1 to 9 do begin
                if storage[matrix[i] - 2] <> 0 then begin
                        goto repeated;
                end;
                storage[matrix[i] - 2] := 1;
        end;

        if (matrix[2] * matrix[3] = matrix[4] * matrix[7]) and (matrix[4] * matrix[6] = matrix[2] * matrix[8]) and (matrix[7] * matrix[8] = matrix[3] * matrix[6]) then begin
                writeln('', matrix[1]:3, '', matrix[2]:3, '', matrix[3]:3);
                writeln('', matrix[4]:3, '', matrix[5]:3, '', matrix[6]:3);
                writeln('', matrix[7]:3, '', matrix[8]:3, '', matrix[9]:3);
                writeln();
                counter := counter + 1;
        end;

        repeated:;
end;

begin

counter := 0;

for a:=1 to 9 do begin
matrix[1] := a + 2;
for b:=1 to 9 do begin
matrix[2] := b + 2;
for c:=1 to 9 do begin
matrix[3] := c + 2;
for d:=1 to 9 do begin
matrix[4] := d + 2;
for e:=1 to 9 do begin
matrix[5] := e + 2;
for f:=1 to 9 do begin
matrix[6] := f + 2;
for g:=1 to 9 do begin
matrix[7] := g + 2;
for h:=1 to 9 do begin
matrix[8] := h + 2;
for i:=1 to 9 do begin
matrix[9] := i + 2;

check_matrix();

end; end; end; end; end; end; end; end; end;

writeln('total: ', counter);

end.
4,6(99 оценок)
Это интересно:
О
Клюква стоит 250 рублей за кг, а малина 200....
О
Решить систему уравнений x2 + y2 + xy = 3...
О
Решить систему уравнений x2 + xy +y2 = 13...
О
В треугольнике АВС проведена биссектриса АК...
О
Водитель ехал с постоянной скоростью из города А в город Б...
О
Первые 300 км автомобиль ехал со скоростью 60 км/час...
О
В треугольнике АВС точка D на стороне АВ...
О
Из разных городов, расстояние между которыми 600 км...
О
Из пункта А в пункт B, расстояние между которыми 84 км...
Х
Правила и техника игры в карточную игру Скорость...
Новые ответы от MOGZ: Математика
Лолик1112
Лолик1112
28.11.2020
Пока сестра не пришла, мне надо начертить квадрат, периметр которого равен периметру прямоугольника со сторонами 6см и 2см...
181101s
181101s
28.11.2020
Миша сказал,что сестер у него на две больше, чем братьев.на сколько в семье миши девочек больше,чем мальчиков?...
лёдсовкусомпохмелья
Первая скважина заполняет водой резервуар за 30 мин , а вторая скважина - за 50 мин. из первой скважины за 1 мин поступает 250л воды. сколько литров воды поступает из второй...
alinabilalova161
alinabilalova161
28.11.2020
Какой лучше сделать проект для школы...
btslove2
btslove2
28.11.2020
Известно, что ab = 15. чему равно a(b х 3)?...
влада409
влада409
28.11.2020
Замени буквы цифрами так, чтобы получилось верное равенство (одинаковым буквам соответствуют одинаковые цифры, а разным- разные) кошка+кошка+кошка=собака...
adyan22041996
adyan22041996
28.11.2020
Замени буквы цифрами так, чтобы получилось верное равенство (одинаковым буквам соответствуют одинаковые цифры, а разным- разные) кошка+кошка+кошка=собака...
ponomarjovakse
ponomarjovakse
28.11.2020
Придумайте , которую невозможно решить(желательно 2 )...
TheyLoveAru
TheyLoveAru
28.11.2020
Чем отличаются звенья и вершины ломаной?...
MashichNya
MashichNya
28.11.2020
Описание женского народного костюма, , !...

MOGZ ответил

Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
О НАС
ПОМОЩЬ
App
.
.
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ