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.
Такие записи есть: 7, 8
Запись на <14:00 – 1, 2, 3, 4, 5, 6
Запись на > «Пятница» – 6, 7, 8
Ответ: 1) 7, 8
________________
БУДУ БЛАГОДАРЕН ЗА ВЫБОР 'КАК ЛУЧШИЙ'
Процес угадывания, т.е нет факта что произошло угадывание, просто факт действия, удачный или нет.
64 = 2 в ст. 6
6 бит на одну попытку
С конца считаем
_ - Л, значит последняя Л
*_- А
_ - Л
_** - Д
_ - Л
*_** - Ж
_** - Д
*_ - А
АДЖЛДЛАЛ
Лида немецкий рояль
маша испанский гитара
женя француский виолончель
катя английский скрипка