Informatics problem solve plz

гугл не помог?

 

Цикл с параметром (For):

var
i, n: integer;
a, x, Summa: real;

begin
write(' x = ');
readln(x);
write(' n = ');
readln(n);
a := 1;
Summa := 1;
for i := 1 to n do
begin
a := a * x / i;
Summa := Summa + a
end;
writeln;
writeln(' Summa = ', Summa:0:7)
end.

Code

var

  i, n: integer;

  a, x, Summa: real;

 

begin

  write(' x = ');

  readln(x);

  write(' n = ');

  readln(n);

  a := 1;

  Summa := 1;

  for i := 1 to n do

  begin

    a := a * x / i;

    Summa := Summa + a

  end;

  writeln;

  writeln(' Summa =  ', Summa:0:7)

end.

Цикл с предусловием (While - do):

var
i, n: integer;
a, x, Summa: real;

begin
write(' x = ');
readln(x);
write(' n = ');
readln(n);
a := 1;
i := 1;
Summa := 1;
while i <= n do
begin
a := a * x / i;
Summa := Summa + a;
i := i + 1
end;
writeln;
writeln(' Summa = ', Summa:0:7)
end.

Code

var

  i, n: integer;

  a, x, Summa: real;

 

begin

  write(' x = ');

  readln(x);

  write(' n = ');

  readln(n);

  a := 1;

  i := 1;

  Summa := 1;

  while i <= n do

  begin

    a := a * x / i;

    Summa := Summa + a;

    i := i + 1

  end;

  writeln;

  writeln(' Summa =  ', Summa:0:7)

end.

Цикл с послеусловием (Repeat - Until):

var
i, n: integer;
a, x, Summa: real;

begin
write(' x = ');
readln(x);
write(' n = ');
readln(n);
a := 1;
i := 1;
Summa := 1;
if n > 0 then
repeat
a := a * x / i;
Summa := Summa + a;
i := i + 1
until i > n;
writeln;
writeln(' Summa = ', Summa:0:7)
end.

Code

var

  i, n: integer;

  a, x, Summa: real;

 

begin

  write(' x = ');

  readln(x);

  write(' n = ');

  readln(n);

  a := 1;

  i := 1;

  Summa := 1;

  if n > 0 then

    repeat

      a := a * x / i;

      Summa := Summa + a;

      i := i + 1

    until i > n;

  writeln;

  writeln(' Summa =  ', Summa:0:7)

end.