алг
нач вещ s, s2, цел y
s := 10000;
s2 := 10000;
y := 0;
нц пока s2 < s * 2
s2 := s2 + (s2 / 100)*5;
y := y + 1;
кц
вывод 'Через ', y, ' лет.';
кон
алг
нач вещ s, s2, цел y
s := 10000;
s2 := 10000;
y := 0;
нц пока s2 < s * 2
s2 := s2 + (s2 / 100)*5;
y := y + 1;
кц
вывод 'Через ', y, ' лет.';
кон