Developing.ru

Дано действительное число а. Найти такое наименьшее число n, что



Получить результат при а=3,5.

Заранее благодарен.

В чем сложность?
Могу даже подсказать первые две строки
sum:=0;
for i:=1 to n do

miracle111, можешь постучать в аську 198-012-696
только предупреждаю сразу, халявы не жди
твоя тема очень похожа на "решите за меня целиком и бесплатно"
бесплатно подскажу только с алгоритмом, какой-то непонятной функцией или частью кода
захочешь, чтобы я сделал за тебя целиком - попрошу денег

#1. результат получите сами.

[syntax=Delphi]

Var S,X,a:real;
n,i,n1,j:integer;
Function PowerN(n1:integer;x:real):real;
begin
For i:=1 to n1 do
Begin
PowerN:=x*exp((n-1)*ln(x)) ;
end;
End;

begin
Writeln('Введите степень');
Readln(n);
Writeln('x');
Readln(x);
a:=sin(x);
For j:=1 to n do S:=S+PowerN(j,a);
Writeln(S:8:4);
Readln;
End.

[/syntax]

C_O_D_E, это че, прикол что-ли. Хватит издеваться над людьми ))))
По секрету скажу, S всегда меньше или равно N, к тому же там синус стоит - в вашем коде я его не вижу.

в первой задачке я разобрался но вот с этой никак

Дано действительное число а. Найти такое наименьшее число n, что



Получить результат при а=3,5.

Раз первую понял, то здесь то же самое. Считай сумму и на кадом шаге проверяй условие. Используй конструкцию While do

спасибо, разобрался