Помогите, пожалуйста!Через repeat

Помогите, пожалуйста!

Через repeat

Задать свой вопрос
Элина Капцова
Паскаль ?
Мария Ревельская
да
Семик Лукяненков
Функцию ступени "power" - тоже циклом заменить?))
Олег Орлов-Николаев
да, если можно, пожалуйста!
Eva Balagero
Готово
1 ответ
Var
X,N,m,r:integer;
S,F,St:real;
Begin
Write('X = ');Read(X);
N:=1;
S:=0;
Repeat
   r:=1;
   St:=1;
   Repeat
   St:=St*X;
   r:=r+1;
   Until rgt;N;
   
   m:=1;
   F:=1;
   Repeat
   F:=F*m;
   m:=m+1;
   Until mgt;n;
S:=S+St/F;
N:=N+2;

Until Ngt;13;
WriteLn(S);
End.
Лариса Сливина
спасибо большое!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт