БЕГ – бог – бок – бак – мак – маг – ШАГ;
МОРЕ – горе – гора – кора – кома – кума – сума – СУША;
<span>МИГ – мир – пир – пар – бар – бас – бес – вес – ВЕК</span>
1. Упростим исходную логическую функцию
Для удобства записи будем использовать общепринятые сокращения. Операцию логического сложения (дизъюнкцию) "∨" будем обозначать знаком "+". Логическое умножение (конъюнкцию) "∧" будем обозначать знаком умножения (точкой) или опускать, как принято в алгебре. Вместо знака логического отрицания будем использовать надчеркивание.
2. Переведем в двоичную систему счисления заданные значения A, B, C:
3. Построим таблицу истинности для функции у
4. Переведем результат в десятичную систему счисления
1)
const n=<u>?</u>; //Сюда поставить любое нужное n
Var a:array[1..n] of real;
i,x,k:integer; s:real;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
s:=0;
k:=0;
for i:=1 to n do
begin
s:=s+a[i];
k:=k+1;
end;
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
s:=s/k;
for i:=1 to n do
if a[i]<s then
write(a[i],', ');
readln;
End.
2)
Const n=?;
Var a:array[1..n] of integer;
i,max,min:integer;
Begin
for i:=1 to n do
begin
readln(x);
a[i]:=x;
end;
min:=a[1];
max:=a[1];
for i:=1 to n do
if (i mod 2)=0 then
if a[i]>max then
max:=a[i];
for i:=1 to n do
if (i mod 2)<>0 then
if a[i]<min then
min:=a[i];
writeln('max=',max);
writeln('min=',min);
readln;
End.
Const n=10;
var a:array[1..10] of integer;
i,j,z:integer;
begin
writeln('Исходный массив: ');
for i:=1 to n do begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
for i:=6 to 9 do
for j:=i+1 to 10 do
if a[i]<a[j] then
begin
z:=a[i];
a[i]:=a[j];
a[j]:=z;
end;
Write('Результат: ');
for i:=1 to 10 do
Write(a[i]:4);
end.
Program abc
var a,b,c,d,e,max:real;
Begin
Writeln ('Введите пять целых которые нужно сровнять между собой');
readln (a,b,c,d,e);
if a>b then max:=a else max:=b;
if c>max then max:=c;
if d>max then max:=d;
if e>max then max:=e;
Writeln ('Наибольшее число ',max);
End.