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