<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ReadArrInteger('Введите 10 целых чисел:',10);
var pe:=a.Where(t->t.IsEven).Count/10;
Writeln('Нечетных ',100*pe,'%, четных ',100*(1-pe),'%')
end.
<u>Пример</u>
Введите 10 целых чисел: 13 23 38 -24 0 16 -35 18 29 34
Нечетных 60%, четных 40%
Лучшее решение и благодарность.
var n, x, y, i:real;
begin
read (n, x, y);
if n>=x/2+y then write (''Хватит',' ') else write ('Не хватит');
<span>end.</span>
Var i, j, h, a, z, n, k: integer;
array1: array [1..100] of integer;
array2: array [1..100] of integer;
procedure swap(var x, y: integer);
var t: integer;
begin
t := x; x := y; y := t
end;
begin
randomize;
write('Введите значение N: ');
readln(n);
for i := 1 to n do
begin
array1[i] := random(10) + 1;
end;
for i := 1 to n do
begin
writeln('Массив:');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for h := 1 to n - 1 do
for z := 1 to n - h do
if array1[z] > array1[z + 1] then
swap(array1[z], array1[z + 1]);
for i := 1 to n do
begin
writeln('После сортировки:');
for i := 1 to n do write(array1[i], ' ');
writeln;
end;
for i:=1 to n do
begin
k := 0;
for j := 1 to n do
if array1[i] <> array1[j] then k:=k+1;
if k = n - 1 then array2[i] := array1[i];
end;
for i := 1 to n do
if array2[i] > 0 then a := a + 1;
writeln('Различных чисел: ', a);
end.
Гадость,где,где-нибудь,где-то,год,годный,гром,грохот,грош
F=A*¬B - А и В зависят от 6-ти переменных, в таблице истинности будет:
2^6 =64 строки
В условии сказано, что А=1 и В=1 в пяти соответствующих строках (¬В=0).
Значение F=A*¬B=1*0=0, то есть достоверно известно,
что F=0 ровно в пяти строках .
В остальных (64-5=59) 59-ти возможно, что F=1.
ответ 59