Паскаль выдает ошибку Встречено "read" а ожидалось ";" program PLОСНАD;
var А,В,С:real;
D:real;
Р:real;
S:real;
begin
writeln('Задайте стороны A,В,С:')
read(А,В,С);
Р:=(А + В + С)/2;
D:=A;
if D if D if P>D
then
begin
S:=SQRT(P*(P-A)*(P-B)*(P-C));
writeln{'ПЛОЩАДЬ:',S:2:1))
end

200₁₀ → x₂

Делим число в десятичной системе на основание числа, которое мы хотим получить, то есть на 2:

200 / 2 = 100 (0), где 0 - это остаток. Действительно, 2 · 100 + 0 = 200

100 / 2 = 50 (0)

50 / 2 = 25 (0)

25 / 2 = 12 (1), 2 · 12 + 1 = 24 + 1 = 25. Это можно представить так: у Вас есть 25 яблок и 2 друга, между которыми нужно поровну разделить все яблоки. Вы можете обоим дать только по 12 яблок, а останется 1. Это и будет остаток.

12 / 2 = 6 (0)

6 / 2 = 3 (0)

3 / 2 = 1 (1)

1 / 2 = 1 (1), применим на том же примере с яблоками: у нас есть одно яблоко и 2 друга, а нужно разделить количество яблок поровну, не деля яблоко пополам. У Вас сделать это не получится, поэтому у Вас остаётся 1 яблоко, то есть остаток.

Теперь "собираем" остатки снизу вверх:

11001000₂ - это и будет наш двоичный код.

ответ

11001000

Class ArrayEven{
 public static void main(String args[]){
  java.util.Scanner in = new java.util.Scanner(System.in); long eArray[] = new long[1];
  while((eArray[eArray.length-1] = in.nextLong())!=-1){
   long nArray[] = new long[eArray.length+1];
   for(int nCell = 0; nCell<eArray.length; nCell++)nArray[nCell]=eArray[nCell];
   eArray = nArray;
  } eArrayCell:
  for(int cCell = 0; cCell<eArray.length-1; cCell++){
   if(eArray[cCell]%2==0)continue;
   else for(int eCell = cCell+1; eCell<eArray.length-1; eCell++)
   if(eArray[eCell]%2==0){
    eArray[eArray.length-1]=eArray[cCell];
    eArray[cCell]=eArray[eCell];
    eArray[eCell]=eArray[eArray.length-1];
    continue eArrayCell;
   }
   break;
  }
  for(int cCell = 0; cCell<eArray.length-1; cCell++)System.out.print(eArray[cCell]+" ");
 }
}