Есть ответ 👍

Петя недавно узнал, что такое магический квадрат и решил попробовать написать программу, которая будет составлять квадратную таблицу размером 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, заполненная целыми числами. Обменяйте в этой таблице значения ровно двух ячеек так, чтобы сумма чисел в каждой строке и каждом столбце получившейся таблицы была одна и та же.

192
383
Посмотреть ответы 1

Ответы на вопрос:


Program factors; var num, sum : word; st : string; j : byte; function fact(a : byte) : word; var res : word; i : byte; begin res: =1; for i: =1 to a do res : = res*i; writeln(a, '! =', res); fact : = res; end; function vl(a : char) : byte; var res : byte; begin val(a, res); vl : = res; end; begin write('введите число: '); readln (num); str(num, st); sum: =0; for j: =1 to length(st) do sum : = sum + fact(vl(st[j])); writeln('сумма факториалов цифр числа равна: ', sum); end. тестовый прогон программы: введите число: 125 1! =1 2! =2 5! =120 сумма факториалов цифр числа равна: 123

Популярно: Информатика