А=а+с=5
В=В-1=9
С=с+1=4
5<9
А=а+с=9
В=В-1=8
С=с+1=5
9>8
5*8=40
//Pascal ABC.NET 3.1 сборка 1256
Var
b,a,m,ar:real;
i:integer;
begin
readln(b,m,a);
i:=0;
ar:=a*m;
while ar>a do
begin
inc(i);
a:=a*(b/100+1);
end;
writeln(i);
end.
Пример ввода:
33
2
100
Пример вывода:
3
Всього 7 дітей - 6 сестер і один брат)