Вычислить сумму - Turbo Pascal (33690)

Формулировка задачи:

Дано натуральное число n, действительное число x. Вычислить: Использовать цикл с постусловием. Програмку и блок-схему алгоритма, будьте добры.


textual

Код к задаче: «Вычислить сумму - Turbo Pascal (33690)»

var
   S,n,x :real;
       i :integer;
begin
writeln('ââåäèòå Г·ГЁГ±Г«Г* x, n :');
readln(x,n);
i:=1;
S:=0;
repeat
  S:=S+exp(i*ln(x/2));
  i:=i+1;
until i>n;
  writeln('S= ',S:4:2);
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

5   голосов, оценка 4.200 из 5

Источник