• 28 February 2016
    • История
    • Автор: Hihipolina

    Решите Пожалуйста!!! Желательно на языке ПАСКАЛЬ!!

    Изображение к вопросу Решите Пожалуйста!!! Желательно на языке ПАСКАЛЬ!!Загрузить png

    • Ответ оставил: Dikunovaea
    Var n,x,k: integer; d: real;begin read(n, x); k := 1; d := n; while d < x do   begin   k := k + 1;   d := d * 1.1   end; write(k)end.
    • НЕ НАШЛИ ОТВЕТ?
    Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предметы...

Последние опубликованные вопросы