Сообщение состоит из 1280символов
Р.С. извините если неправильно понял вопроса
var temp:array[1..31] of integer;
k,i:integer;
begin
for i:=1 to 31 do readln(temp[i]);
for i:=1 to 31 do
if a[i]<0 then inc(k);
writeln(k);
end.
Var
n:integer;
a:real;
begin
writeln('введите число и степень');
readln(a,n);
writeln('степень : ', exp(ln(a)*n));
writeln('корень: ',exp(ln(a)*(1/n)));
end.
A*x^2+b*x+c
v+a*t^2/2
неясно, что в числителе, что в знаменателе
1+x1*x2/b^2/c
sqr(a^2+b^2)
кучу монет разделить на 2 кучи и взвесить их
если одна из них будет легче то ее еще раз поделить и так-взвесить
если одна куча легче другой значит и монета легче