Var i,q,a:integer;
begin
for i:=1 to 20 do begin
read(a);
q:=q+a;
end;
writeln(q);
end.
Поскольку язык не указан, то вот вам решение в PascalABC.NET
Відвідувало 3+ відвідують 2+перейшов1=6 учнів
Для начала определим истинность каждого отдельно подвыражения
А - 1
В - 0
С - 0
Теперь подставим все это дело в
а) (1+ 0) * 0 -> ( не важно ) всегда будет = 1 (только переход из 1 в 0 = 0)
То есть выражение под (а) истинно = 1
б) (1 * 0) + 0 == (1 + 0 ) * (1 * 0) получаем 0 == 0 это истинна
Ответ: а,б - истинны
P.S - операцию & можно представить как * в математике
операцию | (или) можно представить как + в математике
Если хочешь вывести текст
write('текст'); //Ковычки одинарные
если ты хочешь вывести переменную то без кавычек
a := 1;
write(a);
Также можешь добавить в конец "ln" т.е. writeln(...); после того как выведет он перенесет на следующую строку
Оператор ввода:
Read(переменная); read(a); read(b);
Также и тут можешь перенести строку:
Readln(...);