Помогите решить в паскале

var
i, n: integer;
s1, s2, s3i, s3, s4i, s4: real;
begin
write('n? ');
read(n);
s3i := 0.5;
s4i := 1;
for i := 1 to n do begin
s1 := s1 + sqrt(i);
s2 := s2 + 1 / i;
s3i := s3i * 2;
s3 := s3 + s3i;
s4i := s4i * i;
s4 := s4 + s4i;
end;
writeln('s1: ', s1:0:5);
writeln('s2: ', s2:0:5);
writeln('s3: ', s3:0:0);
writeln('s4: ', s4:0:0);
end.

Кинь мне рублей 100 на телефон, напишу, тут ничего трудного...

1:
s = 0;
for i = 1 to n do s+=sqrt(i);

2:
s = 0;
for i = 1 to n do s+=1/i;

3:
s = 3;
for i = 2 to n do s+=exp(i*ln(2));

4: - лениво писать функцию факториала, но там тоже ниче сложного.
Последнее думаю лучше вычислять рекурсивно, что бы на каждой итерации не пересчитывать факториал.

icq: 433172165 за небольшую плату напишу.

1) readln(n);
for i:=1 to n do
s:=s+sqrt(i);
2) readln(n);
for i:=1 to n do
s:=s+1/i;
3) readln(n);
for i:=0 to n do
s:=s+exp(i*ln(2));
а что такое факториал я не знаю ((

Цикл фор в помощь. В теле цикла (от 1 до н) к переменной прибавляем значение самой переменной и корень текущего значения счетчика.

простые задачи с циклами. .
в гугле поищи. . всяко есть уже наверно
var i,n:integer;
s:real;
begin
n:=100500;
for i:=1 to n do
s:=s+sqrt(i);
writeln('s=',s);
end.
и так далее. .
для 4.
function fact(n : integer) : longint;
begin
if n <= 1 then
fact := 1
else
fact := n * fact(n - 1);
end;