Помогите решить задачки

[Люциферчик]

Помогите решить задачки

1 задача
Вычислите сумму элементов последовательности
n=1,2...
которые не превосходят заданной велечины m
выполнить трассировку алгаритма

2 задача
Дана последовательность слов. В каждом из них от 3 до 10 латинских букв; между соседними словами-один пробел; за последним словом- точка.
Вывести в текстовый всеслова,преобразовав их по правилу: удалить из слова вторую букву

[mod2]У нас использование сторонних фотохостингов без крайней необходимости не допускается. Используйте возможности форума: http://www.tehnari.ru/f8/t32642/
Модератор.[/mod2]

 

[shrek=)]

1 задача
Как я понял последовательность n=1,2,3,4,5,6,...,m
Если это так, то вот:

var
m,n:integer;
s:real;
begin
writeln ('Input m');
readln (m);
for n:=1 to m do
s:=(sqr(n)/sqrt(sqr(n)+1));
writeln ('summa=',s);
readln
end.

 

[Люциферчик]

1 задача
Как я понял последовательность n=1,2,3,4,5,6,...,m
Если это так, то вот:

var
m,n:integer;
s:real;
begin
writeln ('Input m');
readln (m);
for n:=1 to m do
s:=(sqr(n)/sqrt(sqr(n)+1));
writeln ('summa=',s);
readln
end.

Спасибо огромное