Решить . дан произвольный треугольник abc, для которого определен следующий набор характерных параметров: a, b,c - стороны треугольника, альфа, бета, гамма - углы (в градусах), h - высота, опущенная на сторону c, s - площадь, p - периметр треугольника. по трем заданным параметрам( s, h, альфа) в паскале.

var

  a, b, s, c, alpha, betta, gamma, h, p: real;

  x, ar, br, gr: real; {alpha, beta. gamma в радианах}

begin

  write('введите длины двух сторон треугольника и площадь: ');

  readln(a, b, s);

  x : = 2 * s / (a * b);

  if x > 1 then writeln('такой треугольник невозможен')

  else

  begin

    gr : = arcsin(x);

    c : = sqrt(sqr(a) + sqr(b) - 2 * a * b * cos(gr));

    p : = a + b + c;

    ar : = arcsin(a * sin(gr) / c);

    br : = pi - (ar + gr);

    h : = b * sin(ar);

    alpha : = ar * 180 / pi;

    betta : = br * 180 / pi;

    gamma : = 180 - (alpha + betta);

    writeln('решение треугольника');

    writeln('a=', a, ', b=', b, ', c=', c: 0: 5);

    writeln('alpha=', alpha: 0: 2, ', betta=', betta: 0: 2, ', gamma=', gamma: 0: 2);

    writeln('p=', p: 0: 5, ', h=', h: 0: 5, ', s=', s)

  end

end.

тестовое решение:

введите длины двух сторон треугольника и площадь: 3 4 6

решение треугольника

a=3, b=4, c=5.00000

alpha=36.87, betta=53.13, gamma=90.00

p=12.00000, h=2.40000, s=6

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

var s: string;

i,j,k: integer;

unique: boolean;

begin

  for i : = 1000 to 9999 do

  begin

        s : = str(i);

        unique: =true;

        for j: = 1 to length(s)-1 do

              for k : = j+1 to length(s) do

              begin

                    if s[j] = s[k] then unique: =false;

              end;

        if unique then

            writeln(i);

  end;

end.

может длинее, но универсальное.