Преобразуй алгоритм в программу ** языке Паскаль (даю 40 баллов) (задача 2)​

Question

Преобразуй алгоритм в программу на языке Паскаль (даю 40 баллов) (задача 2)​

---

Comments

Это же и есть Паскаль, только служебные слова русские

Answer 1

begin

 var p, s: real;

 p := 2;

 s := 0;

 repeat

   p := p * 1.5;

   s := s + p

 until p > 5;

 Write(s)

end.

Будет выведено число 14.25

Comments

Поправил ответ, вначале неверно условие переписал.

---

Здравствуйте можете мне помочь с информатикой умоляю тебя