Наверное, 8. Сначала делим число 226 пополам (т.к всего 226 вариантов чисел), задаёт вопрос, "больше 113 или нет". После опять дели пополам оставшуюся часть и опять задаёт аналогичный вопрос. И т.д.
1)((1∧1)∨0)∧(0∨1) = (1∨0)∧(0∨1) = 1∧1 = 1
2)
*если не отображается, смотри вложение*
Ввод с клавы:
Var
A:array[1..5] of real;
i:integer;
Begin
WriteLn('Введите массив');
For i:= 1 to 5 do
Read(A[i]);
For i:= 1 to 5 do
Write(A[i],' ');
End.
Заполнение случайными числами:
Var
A:array[1..5] of real;
i:integer;
Begin
For i:= 1 to 5 do
A[i]:=random(21)-10;
For i:= 1 to 5 do
Write(A[i],' ');
End.
По планшету нельзя звонить, вот и вся принципиальная разница
нет звонков, смс, ммс и мобильного интернета
в остальном разницы нету, если ОС одинаковые
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
a.Sort; a.Println;
Writeln('Кол-во разных чисел равно ',a.Distinct.Count)
end.
<u>Пример</u>
n= 13
-1 1 3 -2 8 -9 9 -1 -8 -8 9 -9 2
-9 -9 -8 -8 -2 -1 -1 1 2 3 8 9 9
Кол-во разных чисел равно 9