1)что такое телеконференция? как стать участником телеконференции? 2)какие ещё сервисы представляются пользователям компьютерных сетей?

Всильно устаеревших учебниках под телеконференциями понимают  организованный тематический обмен сообщениями между пользователями сети. сейчас это чаще называют форумами.чтобы стать участником форума, надо зайти на сайт форума, если требуется, зарегистрироваться, и общаться.другие сервисы - электронная почта, ip телефония, чаты и пр.

Var h,h1,m,m1,k,k1,b: integer; begin write('h, h1: '); readln(h,h1); write('m, m1: '); readln(m,m1); write('k, k1: '); readln(k,k1); if h div h1 < m div m1   then b: =h div h1 else b: =m div m1; if k div k1 < b then b: =k div k1; writeln('b = ',b); end. пример: h, h1: 1000 100m, m1: 600 50k, k1: 500 50b = 10с h div h1 (m div m1, k div k1) определяется на сколько бутербродов хватит хлеба, масла или колбасы соответственно. из этих количеств выбирается минимальное значение. в примере: хлеба хватит на 1000 div 100 = 10 бутербродов, масла - на 600 div 50 = 12; колбасы - на 500 div 50 = 10. значит, из данного количество продуктов можно сделать 10 полноценных бутербродов.

ответ:

uses crt;

var   st,buf: string;

k: integer;

begin

k: =0;

clrscr;

write('-> ');

readln(st);

repeat

  if (st[1]=' ') or (length(st)=0) then while st[1]=' ' do delete(st,1,1)

  else

  begin

  while (st[1]< > ' ') and (length(st)> 0) do

  begin

    buf: =buf+st[1];

    delete(st,1,1);

  end;

  if upcase(buf[1])='a' then inc(k);

  buf: ='';

  end;

until (length(st)=0) and (length(buf)=0);

writeln(k);

readln;

end.

объяснение: