Складіть блок схему алгоритму обчислення значення виразу (a+b)-c:(a-2b). Виконайте його при різних значеннях a, b,c. Доберіть значення так , щоб для різних наборів значень виконання алгоритму відбувалося по-різному

в секунду передается 512кбит=512/8кбайт=64кбайт

за четыре минуты передалось 4*60*64=15360кбайт

в одном мбайте 1024 кбайт ⇒15360кбайт=15360/1024мбайт=15мегабайт

ответ: 15 мегабайт

var x1, x2, x3, y1, y2, y3, p: real;

function len(x1, y1, x2, y2: real): real; begin len : = sqrt(sqr(x2 - x1) + sqr(y2 - y1)); end;

begin readln(x1, y1, x2, y2, x3, y3); p : = len(x1, y1, x2, y2) + len(x1, y1, x3, y3) + len(x2, y2, x3, y3); writeln(p: 8: 3); end.

var a,b: integer;

begin

  read(a,b);

  writeln(a,'> ',b,' - ', a> b);

  writeln(a,'< ',b,' - ', a< b);

  writeln(a,'=',b,' - ', a=b);

  read(a,b);

  writeln('sotrudnik podhodit - ', (a> =3) and (b< =35));

end.

var b: array [1..10] of real;

      s: real;

      i: integer;

begin

  s: =0;

  for i: =1 to 10 do begin

    readln(b[i]);

    s: =s+b[i];

                          end;

  writeln(s);

end.