ПОМОГИТЕ СРОЧНО!!!!
1)постройте таблицу истинности для выражения A*(A*B*C+A)

2) запишите значение переменной S, полученное в результате работы следующей программы:
Var s,k: intiger;
Begin
s :=0;
for k :=3 to 8 do
writein(s);
End.

#2
Ты не дописал программу ,пропустил тело цикла ,помимо writeln(s) до него должно быть что-то я полагаю.

№1
A*(A*B*C+A)

A    B   C     A*B       A*B*C   (A*B*C+A)      A*(A*B*C+A)
0    0    0       0             0              0                      0
0    0    1       0             0              0                      0
0    1    0       0             0              0                      0
0    1    1       0             0              0                      0
1    0    0       0             0              1                      1
1    0    1       0             0              1                      1
1    1    0       1             0              1                      1
1    1    1       1             1              1                      1