Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dn<=m do
begin
dn:=d1+d2;
d1:=d2;
d2:=dn;
k:=k+1;
end;
writeln('k = ',k,' dn = ',dn);
end.
Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300
Ответ:
Объяснение:
Возможно коряво, но тем не менее, оно работает
a = str(input('Введите строку - '))
b = list(a)
for i in range(len(b)):
if b[i] == '(':
x = i
if b[i] == ')':
y = i
for z in range(x+1,y):
b[z]=str(b[z])
g = b[z].replace(',',' ')
print(g,end = "")
Начало,
переменная "в" равна 11 минус количество бусинок, которые может быть остались на ниточке
повтори "в" раз:
поднять с пола бусинку
нанизать бусинку на ниточку
конец.