Ответ(ы) на вопрос:
ГостьVar A,S,N:real;
Begin
N:=1;
S:=5;
A:=5;
While S<13 do
Begin
A:=A*0.95;
S:=S+A;
N:=N+1;
End;
WriteLn(N);
End.
Не нашли ответ?
Похожие вопросы
Гость