1)
Var i,a,b:longint;
Begin
read(a,b);
for i:=a to b do
if (i mod 3=0) then write(i,' ');
writeln;
End.
2)
Var i:longint;
Begin
for i:=10 to 99 do
if (abs(i mod 10 - i div 10)<=1) then write(i,' ');
writeln;
End.
3)
Var i,s,f,t:longint;
Begin
for i:=100 to 999 do
begin
f:=i div 100;
s:=i div 10 mod 10;
t:=i mod 10;
if (f=s) or (f=t) or (s=t) then write(i,' ');
end;
writeln;
End.
Var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x<span>);
</span>end.
В 16-символьном алфавите на один символ требуется log(2)16=4 бит.
На все сообщение: 2*16*12*4 бит = 16*12 байт = 16*12/1024 Кбайт=0,1875 Кбайт
![F=(abc)+(bc+\bar a)=abc+bc+\bar a=bc(a+1)+\bar a=\bar a+bc](https://tex.z-dn.net/?f=F%3D%28abc%29%2B%28bc%2B%5Cbar+a%29%3Dabc%2Bbc%2B%5Cbar+a%3Dbc%28a%2B1%29%2B%5Cbar+a%3D%5Cbar+a%2Bbc)
Логическая схема находится во вложении.
Логическая функция по схеме:
![(F=\overline{x_1}x_2+x1)\overline{x_2}=\overline{x_1}x_2\overline{x_2}+x_1\overline{x_2}=0+x_1\overline{x_2}=x_1\overline{x_2}](https://tex.z-dn.net/?f=%28F%3D%5Coverline%7Bx_1%7Dx_2%2Bx1%29%5Coverline%7Bx_2%7D%3D%5Coverline%7Bx_1%7Dx_2%5Coverline%7Bx_2%7D%2Bx_1%5Coverline%7Bx_2%7D%3D0%2Bx_1%5Coverline%7Bx_2%7D%3Dx_1%5Coverline%7Bx_2%7D)
Функция истинна при истинном х₁ и ложном х₂, т.е. в наборе варианта б). Для остальных вариантов она ложна.
Получаем для б) 1, для а), в), г) 0
В номере 1-ответ 3
В номере 2-ответ 4
В номере 3-ответ 1
Удачи))