Даны целые положительные числа. ввод осуществляется до тех пор, пока не будет введён 0. найти сумму и среднее арифметическое введённых чисел

PascalABC.NET

begin

 var s, n, p: integer;

 s := 0;

 n := 0;

 repeat

   Read(p);

   if p = 0 then

     break;

   s += p;

   n += 1

 until False;

 Write('Сумма = ', s, ', ср.арифм = ', s/n)

end.

Объяснение:

Никогда такое не решал, но попробую

На выходе F=1

Идем с конца

До него & (конъюнктор) - это логическое AND

По таблице истинности находим, что На выходе 1, только если на входе 1 и 1, значит А=1

Теперь идем от А. Сначала инверсия, получаем 0

Далее 0 AND B и мы должны получить 1. И тут у меня ломается мозг.

0 AND что угодно - получим 0, а если так, то и F=0 станет.

Вот и логическая бомба.

Решения не вижу у этой задачи, если F=1

Еще функцию надо

F=(A)AND((NOT(A))AND(B))

1=1AND1, значит A=1 и

(NOT(A))AND(B)=1

тогда B=1 и NOT(A)=1.

но NOT(A)=1 и А=1 не может быть. Мы пришли к противоречию.

Утерян "лучший ответ". Нашедшему вернуть.

3   начало       >36
4   3+1      1
5  4+1       1
6  5+1       1
7  6+1       1
8  7+1       1
9  8+1   3*3      2
10  9+1            2
11 10+1           2
12 11+1 4*3     3
13  12+1          3
14   13+1         3
15 14+1  5*3    4
16 15+1           4
17  16+1          4
18 17+1  6*3    5
19  18+1           5
20   19+1           5
21   20+1  7*3   6
22  21+1           6
23   22+1          6
24  23+1  8*3    7
25   24+1          7
26  25+1           7
27  26+1 9*3     9
28    27+1         9
29    28+1         9
30   29+1  10*3   11
31 30+1              11
32  31+1             11
33  32+1  11*3    13
34    33+1           13
35   34+1            13
36  35+1  12*3    16                                  ответ 16