Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/10: Рейтинг темы: голосов - 10, средняя оценка - 4.90
DarkLord666
0 / 0 / 0
Регистрация: 11.12.2013
Сообщений: 152
1

В квадрате 3х3 расположить числа 1, 2, 3, чтобы сумма чисел по вертикали, горизонтали и даигонали равнялась 6

05.05.2014, 13:30. Просмотров 1979. Ответов 1
Метки нет (Все метки)

Расстановка трех чисел. В каждой из 9 клеток квадрата размером 3х3 клетки поставить одно из чисел 1, 2, 3 так, чтобы сумма чисел стоя¬щих в каждом вертикальном, горизонтальном ряду, а также на любой диагонали равнялась 6.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.05.2014, 13:30
Ответы с готовыми решениями:

Найти сумму чисел 1 в квадрате до 10 в квадрате
Создать программу по всем 3 видам циклов...цикл с параметром,цикл с...

Создать два набора волн, которые перекрещиваются по горизонтали и вертикали
"Волны" - динамический процесс с корректировками за граничными условиями....

Выясните, стоят ли в матрице два нуля рядом по горизонтали или вертикали
Помогите решить Двумерный массив n на n заполнен 0,1 и 2. Выясните, стоят ли в...

Чтобы сумма чисел равнялась 100
Здравствуйте, помогите, пожалуйста. При расчете у меня получается 2 числа, к...

Найти такой путь из клетки (1,1) в клетку (А, В), чтобы сумма чисел равнялась заданному числу К
Помогите написать программу к задаче Дано шахматную доску размером М на N....

1
APALoff
1638 / 1067 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
05.05.2014, 14:59 2
Лучший ответ Сообщение было отмечено DarkLord666 как решение

Решение

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
37
Var
  St : String;
 
Function Check(S : String) : Boolean;
Var
  m   : array[1..3,1..3] of Byte;
  i,j : Byte;
Begin
  Check:=True;
  For i:=1 to 3 do
    For j:=1 to 3 do m[i,j]:=Ord(S[(i-1)*3+j])-Ord('0');
  For i:=1 to 3 do
  Begin
    If m[i,1]+m[i,2]+m[i,3]<>6 then Check:=False;
    If m[1,i]+m[2,i]+m[3,i]<>6 then Check:=False;
  end;
  If (m[1,1]+m[2,2]+m[3,3]<>6) or (m[3,1]+m[2,2]+m[1,3]<>6) then Check:=False;
end;
 
Procedure IncS(Var S : String);
Var i,p : Byte;
Begin
  p:=1;
  For i:=Length(S) downto 1 do
  Begin
    S[i]:=Chr(Ord(S[i])+p);
    If S[i]>'3' then S[i]:='1'  else p:=0;
  end;
end;
 
Begin
  St:='111111111';
  While (not (St='333333333')) and (not Check(St)) do IncS(St);
  Writeln(Copy(St,1,3));
  Writeln(Copy(St,4,3));
  Writeln(Copy(St,7,3));
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.05.2014, 14:59

необходимо таблицу расположить по центру по вертикали и по горизонтали
есть таблица, необходимо ее выровнять по центру относительно вертикали и...

Как расположить 4 картинки по горизонтали и 2 по вертикали в 2 ряда
хотел бы узнать как сделать 4 картинки по горизонтале а 2 по вертикале короче в...

Заполнить матрицу заданного размера числами 1,2,3,4 так, чтобы по горизонтали, вертикали и диагонали не было одинаковых рядом стоящих чисел.
Заполнить матрицу заданного размера M(k,l) числами 1,2,3,4 так, чтобы по...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru