Петя недавно узнал, что такое магический квадрат и решил попробовать написать программу, которая будет составлять квадратную таблицу размером 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
Ответы на вопрос:
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
Популярно: Информатика
-
6yterffjdjd05.09.2021 23:25
-
Анастасия170803516.06.2023 02:58
-
DashaKarg322.01.2023 07:37
-
0898765432126.09.2020 23:58
-
Krisrus201021.04.2023 21:25
-
МАРИШКАНИК02.10.2021 12:10
-
a06b07c200503.08.2021 17:13
-
feo073007feo17.03.2021 12:30
-
BaLaWkA200418.07.2020 21:08
-
8913250850401.03.2022 22:56