Технический форум - Разработка циклической программы с неизвестным количеством повторений

Страница 2 из 2

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Vladimir_S

20.03.2013 10:04

Цитата:

Сообщение от beda (Сообщение 883591)

Помоги пожалуйсто оформить это в паскале

Ладно, :dobriy:

Код:

Var

 S,a:Real;

Begin

 a:=1;

 S:=a;

 Repeat

  a:=a*(-0.4);

  S:=S+a;

 Until Abs(a)<0.01;

 Writeln('S= ',S:0:5);

 Readln

End.

beda	20.03.2013 14:23

Цитата:

Сообщение от Vladimir_S (Сообщение 883690)

Var
S,a:Real;
Begin
a:=1;
S:=a;
Repeat
a:=a*(-0.4);
S:=S+a;
Until Abs(a)<0.01;
Writeln('S= ',S:0:5);
Readln
End.

спасибо большое

Часовой пояс GMT +4, время: 15:56.

Страница 2 из 2