Дано слово < < полиморфизм> > . используя буквы входящие в это слово в качестве алфавита (только заглавные буквы, при этом каждая буква кодируется минимальным возможным целым количеством бит)‚ были составлены все возможные слова из трех букв. сколько получилось таких слов? 1.256 2.6561 3.2018 4.512

program xxx;

    var i, s : integer;

begin

  s: =0;

  for i: = 10 to 99 do

      if i mod 5 = 0 then s: =s+i;

  writeln('сумма двузначных чисел, кратных 5 =', s);

  readln

end.

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.

var v1,v2,t,t1: real;

begin

  read(v1,v2,t,t1);

  writeln(v1*(t+t1)< =v2*t1);

end.

а)1,3,6,4,11,5,16,6

б)9,7,10,8,11,9,12,10

в)3,2,1,6,5,4,9,8,7