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

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

при создании алгоритма можно использовать операции и функцию слчисл(n), которая возвращает целое, случайное число в интервале [1, n].

81

Объяснение:

1) 1 часть идентификатора состоит из 10 заглавных латинских букв. Всего латинских заглавных букв 26 => N=26

26 <= 2^i => i = 5 бит - объём, занимаемый одним символом

I (1 части) = 5 бит * 10 букв (из которых состоит код) = 50 бит

2) N = 99999

99999 <= 2^i => i = 17 бит - объём, занимаемый числом в идентификаторе

3) I (одного идентификатора без доп.информации) = 50 бит + 17 бит = 67 бит = 9 байт

I (одного идентификатора c доп.информации) = 9 + 13 = 22 байта

4) n = 1800/22 байта = 81 пользователей

Створюємо кнопку
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле

procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.