Регистрация
Andreiuchenik
31.10.2022 04:24
Информатика
Есть ответ 👍

Составить таблицу истинности:

197
442
Посмотреть ответы 1

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

salhk
salhk
4,6(16 оценок)
Var mas: array [1..100, 1..100] of integer; i,j,n,m,sum: integer; beginsum: =0; writeln ('n'); read (n); writeln ('m'); read (m); for i: =1 to n do beginfor j: =1 to m do beginwriteln ('[',i,',',j,']'); readln (mas[i,j]); end; end; for i: =1 to n do beginfor j: =1 to m do beginif mas[i,j]=0 then sum: =sum+1; end; end; writeln ('kilkist nuliv = ',sum); end. как то так, если что не понятно, спрашивай.

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