Практически все видно во вложении, тут только одно упрощение нужно делать:
(x₁∨x₂)∧x₂ = (x₁+x₂)x₂ = x₁x₂+x₂ = x₂(x₁+1) = x₂
Схема - просто проводник с сигналом х₂
Var a:array[1..10] of integer;
i,k:integer;
begin
writeln('vedite 10 chisel masiva');
k:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do begin
if (a[i]=0) then k:=k+1;
end;
writeln('kolichestvo nuley ',k);
writeln('massiv v obratnom porydke');
for i:=10 downto 1 do
write(' ',a[i]);
end.
var
x: <em>real </em>:= 1;
begin
while (x <= 13) do
begin
writeln('y(', x, ') = ', ln(cos(x)));
x += 0.4;
end;
<span>end.</span>
program G1;
var
a:real;
begin
writeln('Сколько килограмм?');
readln(a);
a:=a*1000;
writeln('Это ',a,' грамм')
end.