Dim a(5,5)
print "введите элементы матрицы:"
for i = 1 to 5
for j = 1 to 5
input a(i,j)
next j
next i
sg=0
sp=0
for i = 1 to 5
sg = sg + a(i,i)
sp = sp +a(i, 5-i+1)
next i
print "сумма элементов главной диагонали ="; sg
print "сумма элементов побочной диагонали ="; sр
Это значение, равное Истина или равное Ложь. Такие значения ты можешь сравнивать между собой, делать отрицание(не), логически складывать(или), умножать(и).
Вот скажем ты можешь ответить на вопрос Да или нет
Я сегодня встал в 7 утра и пил чай и мне было хорошо. Три события которые либо случились либо нет. Логическую величину такого выражения ты можешь вычислить.
Var A:integer;
Begin
WriteLn('Введи двузначное число');
Read(A);
if (A mod 10 + A div 10) mod 2 = 0 then Write('Сумма цифр чётная')
else Write('Сумма цифр НЕчётная')
End.
32*84*8=21504 бит=2,625 Кб
640:2.625=236странц
вроде все.