Что сделать то надо ? напиши, прост я хз
Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>
Мы имеем дело с импликацией. (Г-гласные, С - согласные)
(Г+Г)->С = ¬(Г+Г)+С = ¬Г*¬Г+С
Для представленных вариантов решений подходит только второй вариант.
Ответ: 2
Взвесить с одной стороны 2 и с другой, с какой стороны легче взвешивать Ещё раз с одной стороны 1 и с другой какая сторона легче та монета фальшивая