Нужна по ! упорядочить список партий по числу голосов выведите список всех партий, участвовавших в выборах, отсортировав его в порядке убывания количества голосов избирателей, а при равном количестве голосов - в лексикографическом порядке. пример: входные данные: parties: party one party two party three votes: party one party two party three party two party three вывод программы: party three party two party one

Объяснение:

1. ( 1 или 0) это логическое "или" поэтому будет равно 1, тоже самое со второй скобкой. В третьей скобке импликация. Она равна нулю только при первом аргументе 1, а при втором 0. Теперь у нас конъюнкция между 1 и 1. Конъюнкция равна единице, когда оба аргумента единицы. Теперь конъюнкция между 1 и 0. Из сказанного выше, это будет равняться 0. ответ 0.

2. Первая скобка: Не а или не а будет равно 1, по закону исключённого третьего. Вторая скобка не в или не в будет равна не в (—в). Между 1 и не в следует поставить знак дизъюнкции, что б выражения всегда принимало значение истина(1)

Function V(h,r:real):real;
Begin
result:=1/3*Pi*r*r*h // ABC, ABC.net
// V:=1/3*Pi*r*r*h // Turbo, Free
End;

Function SPP(h,r:real):real;
Begin
result:=Pi*r*(R+Sqrt(r*r+h*h));
End;

Var
   h,r,V0,S,SumS,SumV:real;

Begin
Write('h1 = ');ReadLn(h);
Write('r1 = ');ReadLn(r);
V0:=V(h,r);
SumV:=V0;

S:=SPP(h,r);
SumS:=S;
WriteLn('V1 = ',V0);
WriteLn('S1 = ',S);
WriteLn;

Write('h2 = ');ReadLn(h);
Write('r2 = ');ReadLn(r);
V0:=V(h,r);
SumV:=SumV+V0;

S:=SPP(h,r);
SumS:=SumS+S;
WriteLn('V2 = ',V0);
WriteLn('S2 = ',S);
WriteLn;

Write('h3 = ');ReadLn(h);
Write('r3 = ');ReadLn(r);
V0:=V(h,r);
SumV:=SumV+V0;

S:=SPP(h,r);
SumS:=SumS+S;
WriteLn('V3 = ',V0);
WriteLn('S3 = ',S);
WriteLn;

WriteLn('Sum V = ',SumV);
WriteLn('Sum S = ',SumS);
End.