Программа в PascalABC
var
c, b, a, d, Z : Integer ;
begin
writeln('(c+4ba)d/2cb+(2a2c)') ;
writeln(' Введите значение с ') ;
readln(c) ;
writeln('Введите значение b') ;
readln(b) ;
writeln('Введите значение а') ;
readln(a) ;
writeln('Введите значение d') ;
readln(d) ;
Z:=((c+(4*b*a))*(d/(2*c*b))+(2*a*2*c)) ;
writeln('(c+4ba)d/2cb+(2a2c) =' , ' Z') ;
End.
Должно сработать
Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
begin
a[i]:=random(51);
write(a[i]:4);
end;
writeln;
for i:=1 to n div 2 do write(a[i]:4, a[n-i+1]:4);
writeln;
end.
Пример:
<span>Массив A:
12 44 36 9 1 13 10 11 37 30
12 30 44 37 36 11 9 10 1 13</span>
Var a:array[1..30] of integer;
i:integer;
begin
for i:=1 to 30 do
begin a[i]:=2*i;
write(a[i],' ');
end;
end.
<span>1. Cовершенную дизъюнктивную и конъюнктивную формы функции
2. М</span>инимальную дизъюнктивную и конъюнктивную формы функции с использованием метода Карно-Вейча
3. М<span>инимальную форму функции с использованием операции «И-НЕ»
4. М</span><span>инимальную форму функции с использованием операции «ИЛИ-НЕ»</span>