• Напишите программу винипух съедает 100 грамм варенья первый день, во второй день еще 100 грамм варенья, в третий день 200 грамм варенья, в каждый последующий день он съедает кол-во варенья равное сумме количества варенья в 2 прошедших днях. За сколько дней он съест К грамм варенья

    question img

Ответы 5

  • нет, смотрите. 1-й день 100, 2-й день 100, 3-й день 200. А за первые три дня - 400.
    • Автор:

      laneyyouo
    • 6 лет назад
    • 0
  • введите кол-во грамм4003
    • Автор:

      hope21ih
    • 6 лет назад
    • 0
  • 3 верный ответ
    • Автор:

      johanadcz
    • 6 лет назад
    • 0
  • всё понял
    • Автор:

      cristina
    • 6 лет назад
    • 0
  • program Vinni;var x,x1,x2,x3,y,sum:integer; beginwriteln('введите кол-во грамм');readln(x);if x<100 then writeln('меншье чем за час :)');if x=100 then writeln('столько он скушает за 1 день');if (x>100) and (x<200) then writeln('от 1 до 2 дней не включая их');if x=200 then writeln('за два первых дня он скушает столько!)');if x>200 then beginx1:=100;x2:=100;x3:=200;y:=2;sum:=200;repeatif sum<=x then begin  x2:=x1+x3; sum:=sum+x2; y:=y+1; end;if sum<=x then begin  x1:=x2+x3; y:=y+1; sum:=sum+x1; end;if sum<=x then begin  x3:=x1+x2; sum:=sum+x3; y:=y+1; end;until (sum>=x) or (sum>=x) or (sum>=x);writeln(y);end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years