Перевести из двоичной системы счисления в десятичную
числа: 11011(2), 11001111(2), 1101(2).
Переведите число из десятичной системы счисления в
двоичную числа: 123(10), 45(10), 78(10). С решением​

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

3 отдельное слово

1 строка

5 абзац

2 весь текст

4 произвольный кусок

восемь бит - как раз 256 ячеек

var

i,s: integer;

begin

s: =0;

for i: =20 to 60 do

if i mod 5 =0 then s: =s+i;

writeln(s);

end.