Цикл с параметром

[Joker<777>]

1/a+1/a+1+1/a+2+...+1/a+n. Помогите пожал решить!Заранее спасибо)

[Stilet]

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

Вот так как-то...
Переменные сам назначь.

[BARNEY]

a:= //  чему то  равно
b:=0;
for i:=0 to n-1 do
begin
b:=b+1/a+i;
end;

вроде так

эх опередили

[xakkkkker]

Program SUMMA;
var
 s:real;
 i,n,a:integer;
begin
 Writeln('Vedite znaczeni "n"');
 Readln(n);
 Writeln('Vedite znaczeni "a"');
 Readln(a);
 s:=0;
  For i:= 1 to n do
   s:=s+i/a+n;
 Writeln('Summa = ',s);
 Readln;
end.

Вот то что сказали Stilet BARNEY в полном виде

[TOMMY666]

помогите решить
270(д). Даны символы S1, S2,... Известно, что символ S1 отличен
от пробела и что среди S2, S3,... имеется хотя-бы один пробел.
Рассматриваются S1,... SN - символы, предшествующие первому про-
белу (N-заранее известно). Преобразовать последовательность
S1,... SN : удалив из каждой группы цифр, которой не предшес-
твует точка, все начальные нули (кроме последнего, если за ним
идет точка ).

[p51x]

TOMMY666, создайте своютему, а не лезьте в чужую!