Страница 1 из 1

Паскаль - помогите решить задачку

Добавлено: 19 фев 2008, 16:39
coollerik
Уважаемые! Помогите пжлста не грамотному человечику разобраться с Паскалем и решить задачки!

1.∑(1/к)^n, к=1...n
найти сумму произведений (1/k)в степени n, при к от 1 до n!

2.Построить график функции (Sin^2 X)/X,на инткрвале от а до в(включительно)
Функция синус в квадрате икс,делённое на икс.

Re: Паскаль - помогите решить задачку

Добавлено: 19 фев 2008, 18:03
Medved
#1

program lalala;
var s,keal;
i,n:integer;
begin
read(n,k);
s:=1/k
for i:=2 to n do
s:=(1+s) /k;
writeln(s);
end.