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

По алгоритму

Алг

Нач вещ p, s

P:=2

S:=0

Нц

P:=p*1.5

S:=s+p

Кц при p>5

Вывод S

Кон

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

Question

Фадей

29 октября, 21:37

+4

Ответы (1)

Знаете ответ?

Эла · 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.

Напишите программу на языке паскальПо алгоритмуАлгНач вещ p, sP:=2S:=0НцP:=p*1.5S:=s+pКц при p>5Вывод SКонТолько на стандарте школьной программы.