Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Sahon
10 / 10 / 1
Регистрация: 09.04.2010
Сообщений: 141
#1

Олимпиадное задание (Magic ("Магические" квадраты")) - Pascal

25.12.2010, 15:05. Просмотров 630. Ответов 0
Метки нет (Все метки)

Задача Magic. Существует большое количество разновидностей "магических " квадратов. Одним из них является такой

1 2 3 4
5 6 7 8
9 10 11 12
13 14 15 16

Выберем любое число, например, 8. Вычеркнем числа, стоящие в одном столбце и в одной строке с ним. С оставшихся чисел, снова выберем произвольное число и повторим операцию вычеркивания. Будем поступать так, пока не останется не вычеркнутых чисел. Теперь, если сложить выбранные нами числа, то для данного квадрата эта сумма будет всегда одинаковой (в нашем случае 34) и не будет зависеть от того, какие числа мы выбрали. Напишите прогоаму, что определит, квадратная матрица NxN «магическим» квадратом, и если да, то найдет «магическую» сумму.
Технические условия. Программа читает с клавиатуры число N (2 <N <l 000), а дальше N строк по N чисел через пробел в каждом. Программа выводит на экран «магическую» сумму или 0, если квадрат не магический.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.12.2010, 15:05
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Олимпиадное задание (Magic ("Магические" квадраты")) (Pascal):

Решение заданий типа "Array","Matrix","String","File","Text""" - Pascal
большая просьба помочь решить где-то около 35-40 (из 100) задач (мне не понятных) типа массив и матрица я буду рад (да и если у кого...

Написать программу проверки правильности написания сочетаний "жи", "ши", "ча", "ща", "чу", "щу". Исправить ошибки - Pascal
дан текст.написать программу проверки правильности написания сочетаний &quot;жи&quot;, &quot;ши&quot;, &quot;ча&quot;, &quot;ща&quot;, &quot;чу&quot;, &quot;щу&quot;. исправить...

После каждого символа "О" вставлять пробел и подсчитывать количество букв "А" стоящих между буквами "К" и "Л" - Pascal
После каждого символа &quot;О&quot; вставлять пробел и подсчитывать количество букв &quot;А&quot; стоящих между буквами &quot;К&quot; и...

Шахматы: охарактеризовать положение белых с помощью слов: "мат", "шах", "пат", "обыкновенная позиция" - Pascal
у белых на доске остался только король , у черных - король, слон, конь. охарактеризовать положение белых с помощью слов : мат, шах, пат,...

В заданной последовательности литер, состоящей из букв латинского алфавита и оканчивающейся точкой, определите общее число вхождений букв "a","e", "c", "h". - Pascal
Немогу написать программу. В заданной последовательности литер, состоящей из букв латинского алфа-вита и оканчивающейся точкой, определите...

Задание в паскале "While", "цикл FOR" и массивы - Pascal
1. Дана последовательность целых чисел, ограниченная нулем. Используя цикл с предусловием While, найти наибольшее число из чисел, попавших...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.12.2010, 15:05
Привет! Вот еще темы с ответами:

С клавиатуры вводится строка. Удалить из строки те слова, в которых встречаются английские буквы "A", "E", "O" - Pascal
Можете ,пожалуйста,написать программу, без массивов

В слове x перед каждой буквой "к", которой предшествует буква "с", вставить бкуву "н" - Pascal
В слове x перед каждой буквой &quot;к&quot;, которой предшествует буква &quot;с&quot;, вставить бкуву &quot;н&quot;. Please!Спасите ещё одну...

В данном словосочетании заменить два символа "ас" на один символ "*" и удалить букву "о" - Pascal
В данном словосочетании заменить два символа &quot;ас&quot; на один символ &quot;*&quot; и удалить букву &quot;о&quot;.

Написать программу на языке паскаль, которая из слов "a" и "b" составит новое слово "c" - Pascal
Начало программы: var a,b,c:string; begin writeln('Введите строку a'); readln(a) writeln('Введите строку b'); readln(b) Я...


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

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

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