1 Задание Определите из предложений (А-Г) источник, приёмник и вид информации А) Маша взяла в руки розу и понюхала её Б) Надя Укололась Иголкой В) Миша с восхищением смотрел на спортивную машину Г) Даша сказала Кате, что яблоко было сладким ​

А обоняние кожа б кожа взрительная гвкусовая

1. (A+B+C)&(неA&B&неC)= A&неA&B&неC+B&неA&B&неC+C&неA&B&неC=0+неA&B&неC+0=неA&B&неC

2. (A+B)&(неB+A)&(неC+B)=(A&неB+A&A+B&неB+B&A)&(неC+B)= (A&неB+A+0+B&A)&(неC+B)= (A&неB+A+B&A)&(неC+B)=A&неB&неC+A&неB&B+A&неC+A&B+B&A&неC+B&A*B= A&неB&неC+0+A&неC+B&A&неC+A&B+A&B=A&неB&неC+A&неC+B&A&неC+A&B=A&неC(B+1)+ A&B&(неC+1)=A&неC+A&B= A&(неC+B)

3. (1+(A+B))+((A+C)&1)=1+((A+C)&1)= 1+(A&1+c&1)= 1+A+C=1

4. (A&B&неC)+(A&B&C)+не(A+B)= (A&B&неC)+(A&B&C)+неA&неB= (A&B)&(неC+C)+неA&неB=A&B+неA&неB= A~B

5. (A+B+C)&не(A+неB+C)= (A+B+C)&неA&B&неC=A&неA&B&неC+B&неA&B&неC+C&неA&B&неC=0+неA&B&неC+0=неA&B&неC

Объяснение:

1
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 2 = 0
        then
            Writeln('Число чётное')
        else
            Writeln('Число не чётное');
    readln;
end.

2
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 3 = 0
        then
            Writeln('Число делится на 3')
        else
            Writeln('Число не делится на 3');
    readln;
end.

3
program z;
var
    i: array[1..6] of byte;
    x:byte;
begin
    for x:=1 to 6 do
   
        begin
            Writeln('Введите ', x,' цифру из 6 ');
            Read(i[x]);
        end;
    if (i[1]+i[2]) = (i[4]+i[5]+i[6])
        then
            Writeln('Билет счастливый')
        else
            Writeln('Билет не счастливый');
    Readln;
end.
       
5)))
program z;
var
    i : integer;
begin
    Writeln('Введите число'); Readln(i);
    if i mod 6 = 0
        then
            Writeln('Число делится на 6')
        else
            Writeln('Число не делится на 6');
    readln;
end.
6
program z;
var
    a,b:integer;
begin
    Writeln('Введите число A'); Readln(a);
    Writeln('Введите число B'); Readln(b);
    if b mod a = 0
        then Writeln('Число А делится нацело на число В')
        else Writeln('Число А не делится нацело на число B');
    Readln;
end.