• Составить программу в PascalABC
    За сколько дней может похудеть спортсмен со 100 до 80 кг, если в день он может сбрасывать 1% своего веса от нормы предыдущего дня?

Ответы 1

  • var m:real; k:integer;beginm:=100; k:=0;while m>80 do begin k:=k+1; m:=m*0.99; end;writeln('k = ',k);end.Результат:k = 23
    • Автор:

      anna20
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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