Перевести число 0907 в 10, 2, 4, 8, 16 степень

Ложь И НЕ Истина = Ложь (False)

НЕ (Истина ИЛИ Ложь) = Ложь (False)  

НЕ Истина И НЕ Ложь = Ложь (False)

НЕ (Ложь И Истина) = Истина (True)

НЕ Истина И НЕ Истина = Ложь (False)

Истина ИЛИ НЕ Истина = Истина (True)

Объяснение:

Ложь И НЕ Истина = Ложь И Ложь = Ложь

НЕ (Истина ИЛИ Ложь) = НЕ (Истина) = Ложь  

НЕ Истина И НЕ Ложь = Ложь И Истина = Ложь

НЕ (Ложь И Истина) = НЕ (Ложь) = Истина  

НЕ Истина И НЕ Истина = Ложь И Ложь = Ложь

Истина ИЛИ НЕ Истина = Истина ИЛИ Ложь = Истина

НЕ - высказывание обратно исходному высказыванию

И - истинно, когда истинны оба исходных высказывания

ИЛИ - ложно, когда ложны оба исходных высказывания

Порядок:

1) скобки

2) НЕ

3) И

4) ИЛИ

Язык п.-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.

Объяснение:

можно было и побольше дать, все таки это самое сложное из заданий Т-Т...