Const
n = 10;
var
matrix : array [1..n] of array [1..n] of integer;
i, j, max : integer;
begin
{формирование матрицы}
for j := 1 to n do
begin
if j <= Trunc(n / 2) then   {находим последний индекс для вставки 1}
  max := j
else
   max := n - j + 1;
for i := 1 to max do {заполняем линию единицами}
begin
matrix[j][i] := 1;
matrix[j][n - i + 1] := 1;
end;
end;
{вывод матрицы (если не нужно, удалите код)}
for j := 1 to n do
begin
for i := 1 to n do
write(matrix[j][i], ' ');
writeln;
  end;
end.

0 0

4 года назад

Перед сдачей вступительных экзаменов в институт Миша предполагал, что: 1) если он сдаст математику, то информатику он сдаст толь

Malmedi [47]

Ответ:

Объяснение:

связь между сдачей математики и информатики

0 0

4 года назад

У исполнителя Множик две команды, которым при- своены номера: 1. Умножь на 2, 2. Раздели на 7. Первая из них увеличивает число н

марина стадникова

7^5 = 16807
Возможны следующие программы, состоящие из 5 команд:
11111 -> 7^5 * 2^5 = 16807 * 32 = 537 824
11112 -> 7^4 * 2^4 = 2401 * 16 = 38 416
11122 -> 7^3 * 2^3 = 343 * 8 = 2744
11222 -> 7^2 * 2^2 = 49 * 4 = 196
12222 -> 7 * 2 = 14
22222 -> 1
Так как последовательность выполнения команд 1 и 2 не влияет на результат (например, результат программ 11122 и 12121 будет одинаковым), то количество различных чисел = 6

0 0

1 год назад