Var i,n,f: integer; begin readln(n); i: =1; f: =1; while i< =n do begin f: =f*i; i: =i+1; end; writeln(f); end.
Спасибо
Ответ дал: Гость
запускаем одновременно часы в 8 минут и 3 минуты - (8 и 3). после окончания 3-х минут переворачиваем их и продолжаем у нас будет (5 и 3). после окончания вторых 3-х минут в восьмиминутных часах останется 2 минуты (2 и 3). снова запускаем 3-х минутные чесы вместе с оставшимися 2-х минутными. после окончания 2 минут в восьмиминутныхъ часах в 3-х минутных останется 1 минута (0 и 1). начиная с этой минуты запустив 2 раза трехминутные часы получаем искомые 7 минут.
Ответ дал: Гость
256 кбайт = 2^8 * 2^13 = 2^21 бит
2 мбайт = 2 * 2^23 = 2^24 бит
2^21 : 2^18 = 2^3 = 8 сек, потребуется для получения толей первых 256 кбайт
Популярные вопросы