<span>REM func</span>
<span>INPUT a,b,c</span>
<span>IF (a^2-b)*(c-b^2)<>0 THEN</span>
<span>D=(a^2-b)*(c-b^2)/3</span>
<span>PRINT D</span>
<span>ELSE</span>
<span>PRINT "Реш.нет"</span>
<span>END IF</span>
<span>End</span>
Переводим в двоичную систему:
– Первое условие: x & 1010 ≠ 0
Условие истинно для x, у которых первый или третий бит ненулевые (биты я считаю справа налево, начиная с нуля)
– Второе условие: (x & 100111 = 0) && (x & 10010101 = 0)
Условие истинно для x, у которых биты 0, 1, 2, 4, 5, 7 нулевые
Нужно поставить третье условие так, чтобы для любого натурального числа выполнялось хотя бы одно из условий, тогда дизъюнкция трёх условий будет истинна. Найдем, какие числа не удовлетворяют первым двум условиям, и подберём третье условие так, чтобы ему все такие числа удовлетворяли:
Первое условие не выполнено для чисел, двоичная запись которых имеет вид ...____0_0_, _ заменяет любую двоичную цифру. Добавляем второе условие: ...?_??0?0?, – на месте по крайней мере одного из вопросиков стоит 1.
Третье условие говорит о том, что на тех местах, где в A единицы, в числе должны стоять нули. Нужно, чтобы этому условию удовлетворяли все "нехорошие числа", про которые мы точно знаем, что в них нули стоят на первом и третьем местах, а в других местах – может стоят, а может и нет. Поэтому подходят только такие натуральные A: 0010, 1000, 1010. Наибольшее из них 1010(2) = 10(10).
Конечно, второе условие можно было бы сразу не рассматривать, если догадаться, о чём идёт речь.
1) одна из главных составляющих компьютера-процессор
2) Предмет системы вывода информации-монитор
3) одиз из компьютерных языков-паскаль ну или бейсик(бэйсик)
4) Один из основателей майкрософт-Гейтс
5) Предмет для ввода информации-Планшет(ну на котором рисуют пишут и т.п.) можно написать мышка или клавиатура
6) Программа софт защищающая компьютер от вредоносных программ-антивирус
Function oddcount(ar:array[1..n;1..m] of integer):integer;
var i,j:integer;
begin
result:=0;
for i:=1 to n do
for j:=1 to m do
begin
if odd(ar[i,j]) then
result:=result+1;
end;
writeln(result);
end;
Вот так как-то.
