Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше дать, все таки это самое сложное из заданий Т-Т...
Язык п.-Pascal ABC
var
n, m, k, i, j, t: integer;
a: array [1..100, 1..100] of integer;
b: array [1..100] of integer;
begin
readln(n, m, k);
for i := 1 to n do
for j := 1 to m do
a[i, j] := (i + j) mod k;
for t := 1 to k do
begin
for i := 1 to n do
for j := 1 to m do
if (not ((t - 1) <> a[i, j])) then
b[t] := b[t] + 1;
write(b[t]:3);
end;
end.
Объяснение:
можно было и побольше дать, все таки это самое сложное из заданий Т-Т...
Для упрощения данного логического выражения, воспользуемся законом дистрибутивности и законом де Моргана.
Выражение ¬(A & B) означает отрицание конъюнкции (логическое И) переменных A и B. Это можно записать как (¬A V ¬B).
Теперь мы можем переписать исходное выражение:
(¬A V ¬B) V (A & ¬B)
С закона дистрибутивности, мы можем раскрыть скобки:
(¬A V ¬B) V (A & ¬B) = (¬A V A) & (¬A V ¬B) & (¬B V A) & (¬B V ¬B)
Так как A V ¬A является тавтологией (всегда истинным выражением), то это слагаемое можно опустить:
(¬A V A) & (¬A V ¬B) & (¬B V A) & (¬B V ¬B) = (¬A V ¬B) & (¬B V A)
Таким образом, упрощенное логическое выражение равно (¬A V ¬B) & (¬B V A).
ответ: (¬A V ¬B) & (¬B V A)
Объяснение: