Вычислить сумму

[diagen_62]

Вычислить сумму

вычислить сумму с помощью while и repeat
var n,k:integer;
x,s,s1:real;
n:=0;
s:=0;
while n<101 do
begin
s:=s+exp(n*Ln(x));
inc;
end;
s1:=0;
k:=0;
repeat
s1:=s1+exp(k*Ln(x));
inc(k);
until k>99


не пойму почему не работает!исправьте, что не так пожалуйста

 

[Vladimir_S]

не пойму почему не работает!исправьте, что не так пожалуйста

Потому что это не программа, а огрызок программы. Написанный в принципе (если не считать одной мелочи с границей цикла Repeat) правильно. А программа - это примерно так:

var
 n,k:integer;
 x,s,s1:real;
[COLOR=Red]BEGIN[/COLOR]
[COLOR=Red] Write('X= ');
 ReadLn(x);[/COLOR]
 n:=0;
 s:=0;
 while n<101 do
  begin
   s:=s+exp(n*Ln(x));
   inc(n);
  end;
 s1:=0;
 k:=0;
 repeat
  s1:=s1+exp(k*Ln(x));
  inc(k);
 until k>[COLOR=Red]100;[/COLOR]
 [COLOR=Red]WriteLn('S= ',S:16:3);
 WriteLn('S1= ',S1:15:3);
 ReadLn;[/COLOR]
[COLOR=Red]END.[/COLOR]