Const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(161)+40;
write(a[i]:4);
end;
writeln;
end.
Пример:
<span> 83 121 107 43 171 199 116 87 87 144</span>
В начале ввод переменных с клавы(а точнее а=5,b=10,c=20)
потом находим Х=а+б+с(не хочу менять раскладку)=5+10+20=35
Т.к. над Х ничего потом не делаем то в конце Х=35
терь след строка а=а(то бишь 5)умноженное на 85(если ты имел ввиду умножение)"а"=5 на 85 = 425
над "а" мы потом ничего не делаем так что в конце а=425
потом б=а(но терь "а"=425)+б(тобишь 10)
б=435
след строка мы присваиваем с значение 15(с=15)и т.к. мы с ним ничего не делаем оно и в конце с=15
след строка б=б(равное 435)ужножить на 83(если у тя умножить)
калькулятор сказал что б равен 36105
в итоге
а=425; б=36105; с=15 и Х=35
но перепроверь программу вдруг неправильно переписал)
begin
var s := ReadlnString('Введите строку:');
for var i := 1 to s.Length do
case s[i] of
'.': s[i] := '0';
'X', 'Х': s[i] := '1'
end;
Println('Двоичный код:', s);
end.
===== PascalABC.NET =====
Переводим в двоичную систему:
– Первое условие: 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).
Конечно, второе условие можно было бы сразу не рассматривать, если догадаться, о чём идёт речь.
