1) uses crt;
var i,n,s,mx:integer;a:array[1..1000] of integer;
begin
randomize();
mx:=-100;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 0) and (mx < a[i])then mx := a[i];
end;
writeln('');
writeln(mx);
end.
2)
uses crt;
var i,n,s,mn1,mn2:integer;a:array[1..1000] of integer;
begin
randomize();
mn1:= 101;
mn2:= 101;
for i := 1 to 10 do begin
a[i] := random(100) + 1;
write(a[i],' ');
if (a[i] mod 2 = 1) and (mn1 > a[i])then begin
mn2 := mn1;
mn1 := a[i]
end;
end;
writeln('');
writeln(mn2);
end.
Используем расширенное представление числа
Ответ: основание системы счисления равно 6.
1.
X&¬M&¬HvX&M&HvX&¬M&H
Упростим:
<span>X&¬M&¬HvX&&<span>H
2.
</span></span><span>Не все слоны серые и пять не равно дважды два
</span>3 и 4 смотреть прикрепленные файлы.
Лист Excel живой, можно подставить свои данные.
Таблицу истинности подставляем в лист СДНФ3, получаем формулу, упростив, получим результат.
Лист защищен без пароля, чтобы случайно не повредить формулы. Снимаем защиту, копируем элементы, получаем результат.
Если a>x хватит
Если a = x то b должно быть больше или равно n
Если a<x То на диск не хватит