Язык п.-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.
Объяснение:
можно было и побольше дать, все таки это самое сложное из заданий Т-Т...
Ложь И НЕ Истина = Ложь (False)
НЕ (Истина ИЛИ Ложь) = Ложь (False)
НЕ Истина И НЕ Ложь = Ложь (False)
НЕ (Ложь И Истина) = Истина (True)
НЕ Истина И НЕ Истина = Ложь (False)
Истина ИЛИ НЕ Истина = Истина (True)
Объяснение:
Ложь И НЕ Истина = Ложь И Ложь = Ложь
НЕ (Истина ИЛИ Ложь) = НЕ (Истина) = Ложь
НЕ Истина И НЕ Ложь = Ложь И Истина = Ложь
НЕ (Ложь И Истина) = НЕ (Ложь) = Истина
НЕ Истина И НЕ Истина = Ложь И Ложь = Ложь
Истина ИЛИ НЕ Истина = Истина ИЛИ Ложь = Истина
НЕ - высказывание обратно исходному высказыванию
И - истинно, когда истинны оба исходных высказывания
ИЛИ - ложно, когда ложны оба исходных высказывания
Порядок:
1) скобки
2) НЕ
3) И
4) ИЛИ