Вопросы для закрепления теоретического материала к практической работе:

1. Приведите примеры ложных и истинных высказываний.

2. Назовите связки, с которых образуют сложные (составные) высказывания.

3. Перечислить основные логические операции.

4. Какие базовые логические элементы вы знаете?

5. Как изображаются логические элементы: конъюнктор, дизъюнктор, инвертор?

6. Что содержат таблицы истинности и каков порядок их построения?

Задание 3. Составить составное высказывание, содержащее операции логического умножения, сложения и отрицания. Определить его истинность.

/*
Найти частное от деления нацело
используя только + и -
*/

#include <iostream>
using namespace std;

int main()
{
int a, b;
cout <<"Введите два целых числа: ";
cin >>a >>b;
int c=0;
while(a>=b)
{
a-=b;
c++;
}
cout <<"Частное равно " <<c <<endl;

return 0;
}

/*
Определение среднего роста учащичся
*/
#include <iostream>
using namespace std;

int main()
{
cout <<"Введите количество учащихся: ";
int cnt;
cin >>cnt;
cout <<"Ведите рост каждого из " <<cnt <<" учащихся:" <<endl;
int length=0, l;;
for(int i=0; i!=cnt; ++i)
{
cin >>l;
length+=l;
}
float avg=1.0*length/cnt*1.0;
cout.setf(std::ios::fixed);
cout.precision(2);
cout <<"\nСредний рост: " <<avg <<endl;

return 0;
}

Var mas:array[1..100,1..100] of integer; 
           N,M,D,N2,i,C,j,M2,k:integer; 
begin
N:=0;D:=0;k:=0;
write('Введите N = ');Readln(N);
write('Введите M = ');Readln(M);  
For i:= 1 to M do begin         
     M2:=1;        
        For N2:=i downto 1 do begin                 
                 if M2<=N then begin         
                       mas[M2,N2]:=k;                   
                       k:=k+1;                 
                       M2:=M2+1;          
                  end;            
               end;   
        end;          
 //после побочной диагонали    
For D:=2 to N do begin   
      M2:=D;         
              For N2:=M downto 1 do begin                  
                    IF (M2<=N) and (N2<=M) then begin           
                              mas[M2,N2]:=k;                   
                              k:=k+1;                   
                            M2:=M2+1;                
                     end;         
           end;         
end;       
    For i:=1 to N do begin Writeln();         
           for j:=1 to M do                
          write(mas[i,j],'    ');    
       end;  
end.