Question

ПОМОГИТЕ СРОЧНО!!!! 1)постройте таблицу истинности для выражения A*(A*B*C+A) 2) запишите значение переменной S, полученное в результате работы следующей программы: Var s,k: intiger; Begin s :=0; for k :=3 to 8 do writein(s); End.

Answer 1

#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

Answer 2

1. Таблица истинности для выражения A*(ABC+A):

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

2. В данном коде есть ошибка, так как оператор writein не существует, возможно, имелось в виду writeln. Исправленный код:

cssCopy code
Var s,k: integer;
Begin
  s := 0;
  for k := 3 to 8 do
    s := s + k;
  writeln(s);
End.

Результат работы программы будет равен 33, так как происходит суммирование чисел от 3 до 8 включительно.