Сколько существует различных наборов значений логических переменных x1...x4, y1...y4, при которых следующие выражения истинны? Правильный ответ - 56. Было б классно узнать решение

1)var

chislo,max:integer ;

begin  

Writeln('Введите числа');  

max:=0;  

Read(chislo);

while chislo <> 0 do  

begin  

If(chislo>max) then

max:=chislo;  

Read(chislo);

end;

Writeln('Наибольшие число из веденных является ',max);  

end.

2)

var  

chislo,di,k:integer;  

begin  

Writeln('Введите число');Readln(chislo);

for di:= 1 to chislo do  

begin

if((chislo mod di) = 0 ) then  

begin  

Writeln('Число делится на ',di);

k:=k+1;

end;  

end;  

if(k>2) then

Writeln('Число',chislo,' не простое');

if(k=2) then  

Writeln('Число ',chislo,' простое');

end.

Объяснение:

3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию.
4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык).
5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом.
6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности  ее использования.
7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия)