Регистрация
annaglukhikh07
15.02.2021 15:25
Информатика
Есть ответ 👍

Построить таблицу истинности A&BV(A^B)

288
467
Посмотреть ответы 1

Ответы на вопрос:

BlackJuice
BlackJuice
4,5(71 оценок)
Var   a,b: array[1..1000] of integer;   i, sum: integer; begin   sum: =0;   readln(n);   for i: =1 to n do     readln(a[i], b[i]);   for i: =1 to n do   begin      if a[i]< 0 then       sum: =sum+a[i];     if b[i]< 0 then       sum: =sum+b[i];     end;   writeln(sum); end.            

Популярно: Информатика