Написали бы язык программирования. Вот на java.<span>
import java.io.*<span>;
</span>import java.util.ArrayList<span>;
</span>
public class Main {
public static void main(String[] args) throws IOException {
<span>//Создаём объекты, которые помогут с чтением и записью файла
</span> BufferedReader reader = new BufferedReader(new FileReader("input.txt"))<span>;
</span> BufferedWriter writer = new BufferedWriter(new FileWriter("output.txt"))<span>;
</span><span>//Читаем первую и вторую строку
</span> String one = reader.readLine()<span>;
</span> String two = reader.readLine()<span>;
</span><span>//Парсим строки в массивы целых чисел
</span> String[] oneStringArray = one.split(" ")<span>;
</span> String[] twoStringArray = two.split(" ")<span>;
</span> ArrayList<Integer> oneList = new ArrayList<>()<span>;
</span> ArrayList<Integer> twoList = new ArrayList<>()<span>;
</span> for (String s:oneStringArray) {
oneList.add(Integer.parseInt(s))<span>;
</span> }
for (String s:twoStringArray) {
twoList.add(Integer.parseInt(s))<span>;
</span> }
<span>//Прогоняем первый массив в цикле, если не находим совпалений во второй массиве, то увеличиваем значение count на 1
</span> int count = 0<span>;
</span> for(int a:oneList){
boolean flg = <span>false;
</span> for(int b:twoList){
if(a == b){
flg = <span>true;
</span><span> break;
</span> }
}
if(flg){
count++<span>;
</span> }
}
writer.write(count)<span>;
</span> writer.close()<span>;
</span> }
}
</span>
простые сложные состав количество посылок характер логического следования
//Попробуем по-новому
var n:integer;
begin;
readln(n);
var ar:=ArrRandomInteger(n+1,10,99);
var i:=1;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
<span>end.</span>
Ну если нужно просто перевести из десятичной системы счисления в двоичную то получим:
1111(10)= 1*2^10+0*2^9+0*2^8+0*2^7+1*2^6+0*2^5+1*2^4+0*2^3+1*2^2+1*2^1+1*2^0= 10001010111(2)
Ответ:10001010111(2)
Var x, y: real;
begin
writeln (' Ââåäèòå ÷èñëà x, y');
readln (x,y);
if x>y then x:=x-y
else x:=x-y;
if x>y then y:=x+y
else y:=y-x;
writeln ('÷èñëî x',x);
writeln ('÷èñëî y',y);
end.