Сделать блок схему.
program pr1;
var a: array [1..100, 1..100] of integer;
i, n, j : integer;
gsum, psum, srgeom: real;
begin
psum : = 0;
gsum : =0;
srgeom: =0;
writeln('введите размер матрицы ');
readln(n);
for i : = 1 to n do
for j : = 1 to n do
a[i, j] : = random(21);
for i : = 1 to n do
begin
for j : = 1 to n do
write(a[i, j]: 3);
writeln;
end;
for i : = 1 to n do
psum : = psum + a[i, n - i + 1];
for i : = 1 to n do
gsum : = gsum + a[i,i];
srgeom: =sqrt(psum*gsum);
writeln('среднее : ',srgeom);
end.
Тут у нас импликация(если..то...), комбинированная с конъюнкцией(и).
Таблица истинности импликации(стрелочки):
0 0 1
0 1 1
1 0 0
1 1 1
Общее правило: если a<=b, тогда правда
Таблица истинности конъюнкции(/\):
0 0 0
0 1 0
1 0 0
1 1 1
Общее правило: если есть одна ложь-всё ложь
Теперь о примере:
Просто подставляем вместо x варианты. Так как между двумя скобочками с Если... То... стоит И, нам нужен вариант, где оба Если... То... являются правдой.
Рассмотрим подробно 1 вариант:
21<25 - это правда
21<23 - это правда
Таким образом, в первых скобочках правда, это доказывает таблица истинности, приведённая выше.
21<22 - это правда
21>21 - это ложь
В этих скобочках-ложь.
А так как ложь и правда в И являются ложью, нам не подходит данный вариант
2 вариант-верный ответ, т.к.:
22<25 - это правда
22<23 - это правда
В первых скобочках правда
22<22 - это ложь
22>21 - это правда
И в этих скобках правда.
Как можно убедится, снова взглянув в таблицу истинности для конъюнкции, всё выражение является правдой.
3 и 4 посмотрите сами и убедитесь что это ложь.