ITYourself! - компьютерная документация, книги, мануалы, it-тематика

???????? ????? ? ????????????

E-mail Печать PDF
Рейтинг пользователей: / 4
ХудшийЛучший 

???????? ????? ? ????????????

???????? ????? ? ???????????? ???????????? ? ????????? ? ??????, ????? ?????????? ?????????? ?????????? ? ????? ? ???????? ? ????? ?????? ???? ???????? ???? ?? ???? ???.

???????? ????? ? ???????????? ????? ????????? ???????????:

Repeat <????_?????> Until <???????>;

?????: Repeat, Until - ????????????????? ????? (????????? ?? ??? ???, ???? ?? ????? ????????? ???????);

<????_?????> - ???????????? ?????????????????? ?????????? Turbo Pascal;

<???????> - ????????? ??????????? ????.

???????? Repeat ... Until ???????? ????????? ???????. ? ?????? ??????????? ???? ?????, ????? ???? ??????????? ?????????? ????????? ????????? ?? ?????? Until, ???? ??????????? ?????????? ????????? ???????? ????, ?? ????????? ? ???? ????? ????? ????????? ????????. ? ????????? ??????, ???? ?????????? ????????? ????? ???????? ??????, ???????? ????? ? ???????????? ????????? ???? ??????.

?????? 1.

???? ?????????????????? ????? ?????, ????????? ????????? ??????? ???????? ????? 100. ????????? ??????? ?????????????? ????????? ???? ??????????????????.

Program primer1;

Var i, a, s, x : integer;

Begin

s := 0;

x := 0;

Repeat

Read (a);

s := s + a;

x := x + 1;

Until a = 100;

s := s / x;

Write ('??????? ??????????????: ', s);

End.

???????? ????????, ??? ? ?????? ?????? ?? ?? ???????????? ?????????? ??????, ? ????????? ????? ? ???????????? ?? ???????? ???? Repeat ... Until.

 

Добавьтe Ваш комментарий

Ваше имя (псевдоним):
Ваш адрес почты:
Заголовок:
Комментарий:

??????????




????????

Внимание!!! Файл sape.php не обнаружен. Проверьте правильность установки кода Sape.


C???????? ?????????