Var a,s:integer;
begin
a:=3000
while a<5000 do begin
a:=a+(a*0,2);
s:=s+1;
end;
print(s);
end.
Ответ:
12
Объяснение:
при последней итерации которая удовлетворяет условию есть три единицы:
111222
первая замена даст
2222
вторая замена даст
12
до этого на листочке нарисуй замены, три раза примени цикл и увидишь что он повторяется и опять получается последовательно еденичек а за ними столько же двоек
<span>Если "родителей должно быть не менее одной трети" (т.е. больше или равно), то в первом примере (где n=27, k=7) ответ должен быть 2, а не 3. 7+2=9 - это как раз 1/3 от 27. </span>
var n,k,m:integer;
begin
writeln;
readln(n);
readln(k);
m:=(n-1) div 3+1;
if m-k>0 then writeln(m-k) else writeln(0);
end.
Пример:
27
7
2
Фотоаппаратом или же телефоном, так же можно планшетом, вебкамерой, видео-регистратором, и ещё что-то но я не помню как называется.