Циклы Опции

[zinvor]

Помогите пожалуйста решить задачу:Дано вещественное число A(>1).Найти сумму 1+1/2...+1/N
Заранее спасибо!

[Lapp]

Дано вещественное число A(>1).Найти сумму 1+1/2...+1/N

Дано: в огороде бузина.
Найти: в Киеве дядьку..

Найти сумму 1+1/2...+1/N несложно:

s:=1;
for i:=2 to N do s:=s+1/N;
WriteLn(s);

Но хочется знать, какая тут связь с таинственным числом А..

[zinvor]

Насчет числа А сам не знаю наверное при наборе сделали отпечатку
а программку набираю чето не получается пишет ошибка

[Lapp]

а программку набираю чето не получается пишет ошибка

Ну, значит, ты сделал ошибку.

[volvo]

чето не получается

- это не диагностика ошибки... У ошибки есть номер, есть описание... При всем этом программу надо оформить (представить в виде собственно программы, а не фрагмента). Ты это сделал?

[zinvor]

program ggg;
var i,n:integer; s:real;
begin
writeln ('n='); readln(n);
s:=1;
for i:=2 to n do
s:=s+1/n;
writeln('s=',s);
readln;
end.

М

При публикации программ просьба использовать теги Lapp

[Lapp]

Прошу прощения, это моя ошибка.
Нужно делить не на n, а на i :

s:=s+1/i;

[zinvor]

огромное спасибо за задачку но уменя тут еще одна задачка
Дано вещественное чило А и целое число N (>0).Вывести 1-A+2*A-3*A+...+N*(-1 в степени N)*A
Пожалуйста

[Lapp]

Дано вещественное чило А и целое число N (>0).Вывести 1-A+2*A-3*A+...+N*(-1 в степени N)*A

Вот так можно:

s:=1;
t:=-a;
for i:=1 to n do begin
  s:= s + i*t;
  t:=-t
end;

[zinvor]

слушай я конечно понимаю чтоуже надоедаю тебе но реши пожалуйста мне третью задачку
Дано вещественное чило А и целое число N (>0).Вывести все целые степени числа Aот 1 до N.

[Lapp]

Вывести все целые степени числа Aот 1 до N.

p:=1;
for i:=1 to n do begin
  p:=p*a;
  WriteLn(p);
end;

[zinvor]

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