Времени суток! слезно с информатикой. сегодня. на ветвление. в больнице ведут прием 2 врача. приемы платные. подсчитать среднюю стоимость за прием у 1 и 2 врача.

Var a,b: integer;
c: real;
begin
writeln('Введите сумму денег приёма 2-ух врачей');
readln(a,b);
c:=(a+b)/2;
writeln(c);
end.

информационный вес символа,при алфавитном подходе считается,что каждый символ текста имеет определенный информационный вес. информа­ционный вес символа зависит от мощности алфавита.а ка­ким может быть наименьшее число символов в алфавите? оно равно двум. скоро вы узнаете, что такой алфавит ис­пользуется в компьютере.он содержит всего 2 символа, ко­торые обозначаются цифрами «0» и «1».его называют дво­ичным алфавитом. изучая устройство и работу компьютера,узнаете,как с всего двух символов можно пред­ставить любую информацию. информационный вес символа двоичного алфавита принят за единицу информации и называется он 1

Var n,m,osn: integer;
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
  nmb:=0;  s:=0;
  k:=n;  l:=1;
  while k>0 do
  begin
    s:=k mod 10;
    k:=k div 10;
    nmb:=nmb+l*s;
    l:=l*osn;
  end;
  Result:=nmb;
end;
{ конец функции}
begin
  write('число:  ');
  readln(n);
  write('квадрат какого числа:  ');
  readln(m);
  osn:=10;
  while osn>=2 do
  begin
     osn:=osn-1;
    if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
    begin
      writeln('основание системы = ',osn);
      break;
    end;
  end;
end.