Question

Напишите программу на языке паскаль
По алгоритму

Алг
Нач вещ p,s
P:=2
S:=0
Нц
P:=p*1.5
S:=s+p
Кц при p>5
Вывод S
Кон

Только на стандарте школьной программы.

Answer 1

Program Test;

Var S, P: real;

Begin

P := 2;
S := 0;

Repeat
P := P * 1.5;
S := S + P;

Until (P > 5);

Writeln('S = ', S);

End.