Дано четырёх значное число , найти сумму его цифр

9999 получается тридцать два

а) (А∧B)∨(C∨D)

б)¬((A∧B)∨C)

16 строк, как как 4 элемента.

а)

для удобства таблицы:

(А∧B) - 1

(C∨D) - 2

(А∧B)∨(C∨D) - 3

A   B   C   D   1   2   3

0   0   0   0   0   0  0

0   0   0   1    0   1   1

0   0   1    0   0   1   1

0   0   1    1    0   1   1

0   1   0    0   0   0  0

0   1   0    1    0   1   1

0   1   1     0   0   1   1

0   1   1     1    0   1   1

1   0   0    0   0   0  0

1   0   0    1    0   1   1

1   0   1     0   0   1   1

1   0   1     1    0   1   1

1   1   0     0   1    0  1

1   1   0     1    1    1   1

1   1   1      0   1    1   1

1   1   1      1    1    1   1

б)

для удобства таблицы:

(A∧B) - 1

(A∧B)∨C - 2

¬((A∧B)∨C) - 3

А В С 1 2 3

0 0 0 0 0 1

0 0 1  0 1  0

0 1  0 0 0 1

0 1  1  0 1  0

1  0 0 0 0 1

1  0 1  0 1  0

1  1  0 1  1  0

1  1  1  1  1  0

 

uses crt; var a: array[1..99] of real; i,j,n: integer; max: real; beginwrite('введите n: '); readln(n); writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random()+1)-99; write(a[i]: 5); end; writeln; max: =-5; for i: =1 to n do begin if abs(a[i])> max then begin max: =abs(a[i]); j: =i; end; end; writeln('максимальное по модулю число равно ',a[j]); end.

здесь элементы массива - случайные числа от -99 до 99. в ответе выписывается само число, а не его модуль. если нужен именно модуль, то меняем предпоследнюю строку на  writeln('максимальное по модулю число равно ',max);