Формат цикла «До» (цикл с постусловием): Пример

  • docx
  • 11.11.2021
Публикация на сайте для учителей

Публикация педагогических разработок

Бесплатное участие. Свидетельство автора сразу.
Мгновенные 10 документов в портфолио.

Иконка файла материала Л2-00627.docx

Формат цикла «До» (цикл с постусловием):

Пример. Дана последовательность целых чисел, последним элементом которой является число 100. Вычислить среднее арифметическое элементов этой последовательности.

Program primer;

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.