Подготовьте таблицу, с которой вам до-статочно будет ввести последние показания счетчика, a Excel рассчита-ет расход электроэнергии и сумму оплаты.

Program Vby_1;
uses crt;
var a,b,c:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите катеты: ');
  write('a= ');readln(a);
  write('b= ');readln(b);
  writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.

Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
  writeln('***   Alphaues is thinking...   ***');
  writeln('Ok, введите данные: ');
  write('Одно основание = ');readln(a);
  write('Другое основание = ');readln(b);
  write('Высота = ');readln(h);
  t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.

Program Vby_3;
uses crt;
var s:integer;
begin
  writeln('***   Alphaues is thinking...   ***');
  write('Ok, введите расстояние в сантиметрах: '); readln(s);
  write('Число полных метров = ',s div 100);
end.

                             если после деления остаётся остаток, то пишем '1'
287 / 2 = 143,5       1
143 / 2 = 71,5         1
71 / 2 = 35,5           1
35 / 2 = 17,5           1
17 / 2 = 8,5             1
8 / 2 = 4                 0
4 / 2 = 2                0
2 / 2 =1                  0
1 / 2 =0,5               1
Ноль уже не делиться, значит завершаем деления и записываем полученные           (1 и 0) в обратном порядке т.е с конца
получается  287=100011111

2)
101011011
1*2^8 + 0*2^7 + 1*2^6 + 0*2^5 + 1*2^4 + 1*2^3 + 0*2^2 + 1*2^1 + 1*2^0 = 1*256+0*128+1*64+0*32+1*16+1*8+0*4+1*2+1*1  = 347