Var
i : Integer;
begin
for i := 10 to 99 do
if (i div 10 - i mod 10 = 1) or (i mod 10 - i div 10 = 1) then <span>Writeln(i);
</span> Readln;
<span>end.</span>
2 задача:утверждение 1 верно т.к в остальных случаях(именно 2-3)возможен такой исход,что дочка может приехать с мамой,что означает их равнозначность.
3 задача:САДВ
1 задача:в условии сказано 6 участников,а перечислено только 5.Поэтому можно сказать,что условие задачи не является корректным
Programm p1;
var i,s:integer;
arr1:array [1..8] of integer;
begin
for i:=1 to 8 do
begin
writeln ('Введите элемент массива ',i);
readln(arr1[i]);
end;
s:=0;
for i:=1 to 8 do
begin<span>
if (arr1[i] mod 2 <> 0) and (arr1[i]>0) then s:=s+arr1[i];</span>
end;
writeln('Сумма нечетных положительных элементов равно: ',s);
<span>end.</span>
Переформулируем задачу на теорию графов:
Если все вершины графа разделить на два множества, то найдется ребро, соединяющее вершину одного множества с вершиной другого. Доказать, что граф связный.
Докажем от противного. Пусть граф несвязный, тогда у него есть как минимум две компоненты связности. Тогда возьмем такое разбиение графа на группы: в первой группе будут только вершины первой компоненты связности, а в другой группе будут все остальные вершины. В таком случае, по условию задачи существует ребро из вершины первой группы в вершину второй, но это невозможно, так как вершины принадлежат к разным компонентам связности, а по определению между двумя разными компонентами связности нет ребер. Противоречие, следовательно, граф связный. Что и требовалось доказать.
Проверь соединение с жестким диском , порядок загрузки в биосе.
