1. Геометрическое представление функции - график
2. Несколько предложений, связанных по смыслу - текст
3. Набор цифр - число
4. Колебания воздуха, воспринимаемые ухом - звук
Из букв в выделенных клетках собери слово "ВКУС". Какую информацию оно отражает?
<span>3) вкусовую</span>
Program n1;
Uses CRT;
Const n=20;
Var a: array[1..n] of integer;
i: integer;
begin
ClrScr;
Writeln('Vvedite massiv');
For i:=1 to n do
readln(a[i]);
For i:=1 to n do
If a[i]<0 then a[i]:=a[i]*(-5)
else if a[i]>0 then a[i]:=a[i]*20
else a[i]:=1000;
For i:=1 to n do
write(a[i]:5);
readln
end.
Program n1;
var a,k: integer;
function summa( n: integer ): integer;
var s: integer;
begin
s:=0;
while n>0 do
begin
s:=s+n mod 10;
n:=n div 10;
end;
summa:=s;
end;
begin
k:=0;
write('введите 1 число: ');
readln(a);
if (summa(a) mod 2=0) and(a<>0) then k:=k+1;
while a<>0 do
begin
write('введите следущее число: ');
readln(a);
if (summa(a) mod 2=0) and(a<>0) then k:=k+1;
end;
writeln('количество: ',k);
end.
Логическое выражение по этой схеме
Не((Не(А∨В)∧С)∧Д)=1, упростим выражение применяя теоремы Буля
(<span>А∨В)∧С</span>∨НеД=1
Подставив значения, получим при 0100 функцию=1