anastasiya11лет
17.10.2020 16:23

Петя недавно узнал, что такое магический квадрат и решил попробовать написать программу, которая будет составлять квадратную таблицу размером 3х3, состоящую из произвольных целых чисел, в которой сумма элементов в каждой строке и в каждом столбце одна и та же. Но Петя - начинающий программист, поэтому он допустил в своей программе ошибку. Программа Пети выводит квадратную матрицу размером 3х3 такую, что если в ней обменять значения ровно двух ячеек, то таблица станет правильной и будет удовлетворять нужному условию.

Например, если в таблице, которую выдала программа Пети

8 1 6
3 2 7
4 9 5
обменять местами числа 2 и 5, то получится правильная таблица

8 1 6
3 5 7
4 9 2
в которой сумма чисел в каждой строке и в каждом столбце одна и та же и равна 15.

Вам будет дана квадратная таблица размера 3х3, заполненная целыми числами. Обменяйте в этой таблице значения ровно двух ячеек так, чтобы сумма чисел в каждой строке и каждом столбце получившейся таблицы была одна и та же.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
gly77oxlysj
07.02.2020 07:25
Const
 n = 20;

var
 pos,neg: integer;
 i,k,x: integer;
 ev,un: integer;
 a,b: array [1..n] of integer;

begin
 for i := 1 to n do
   read(a[i]);
  k := 0;
 pos := 0;
 neg := 0;
  for i := 1 to n do
   begin
      ev := 0;
   un := 0;
      x := a[i];
      if x <> 0 then
     if x > 0 then
       if (x < pos) or (pos = 0) then
         pos := x
       else
     else
       if (x > neg) or (neg = 0) then
         neg := x;
      x := abs(x);
      while x <> 0 do
     begin
     if odd(x) then
       un := un + 1
     else
       ev := ev + 1;
     x := x div 10
     end;
      if un = ev then
     begin
     k := k + 1;
     b[k] := a[i]
     end
      end;

 writeln(pos,' ',neg);
 for i := 1 to k do
   write(b[i],' ')
 end.
0,0(0 оценок)
Ответ:
vlada3108
28.07.2022 19:05

1 На вкладці Файл виберіть команду Створити й клацніть плитку Пуста база даних.

2 У поле Ім’я файлу введіть ім’я файлу. Щоб змінити стандартне розташування файлу, натисніть кнопку Знайти розташування для бази даних (поруч із полем Ім’я файлу), відкрийте потрібну папку й натисніть кнопку OK.

3 Натисніть кнопку Створити.

Access створить базу даних із пустою таблицею "Таблиця1", яку потім відкриє у вікні табличного подання даних. Курсор установиться в першій пустій клітинці стовпця Клацніть, щоб додати.

4Щоб додати дані, почніть вводити їх або вставте їх з іншого джерела.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота