Подсчитайте, какое максимальное количество раз лист может быть сложен

@SponchBobKiller · Регистрация: 21.07.2017

Author24 — интернет-сервис помощи студентам

Оригами

Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Недавно программист Митя увлекся оригами. Оригами — древнее искусство складывания фигурок из бумаги. Искусство оригами своими корнями уходит в Древний Китай, где и была изобретена бумага. Первоначально оригами использовалось в религиозных обрядах. Долгое время этот вид искусства был доступен только представителям высших сословий, где признаком хорошего тона было владение техникой складывания из бумаги. Только после второй мировой войны оригами вышло за пределы Востока и попало в Америку и Европу, где сразу обрело своих поклонников. В процессе обучения искусству оригами, Митя достиг апогея своего развития — он научился складывать листы точно пополам! Так же он выяснил, что лист бумаги можно сложить пополам, только если длина стороны, которая уменьшается в результате складывания, не меньше удвоенной толщины. Вам задан прямоугольный лист бумаги единичной толщины и размером L×W. Подсчитайте, какое максимальное количество раз он может быть сложен.
Формат ввода

Во входном файле заданы два целых число L и W (1 ≤ L, W ≤ 109) — длина и ширина листа соответственно.
Формат вывода

В выходной файл выведите одно число — максимальное число складываний, которое можно произвести с имеющимся листом бумаги.
Пример 1

Ввод Вывод
82 18
4
Пример 2

Ввод Вывод
404 279
6
Пример 3

Ввод Вывод
10 26
3

Мое решение:

Pascal

var L,W,M,K,T,H,F:real;
    i: integer;
    a:array [1..1000] of integer; 
Begin
read(L,W);
m:=1;
K:=0;
if W<L then begin
  H:=L;
  F:=W;
  end
else begin 
  H:=W;
  F:=L;
  end;
for i:=1 to 1000 do begin
  if H>2*m then begin
    K:=K+1;
    m:=m*2;
    H:=H/2;
  end
  else T:=K;
end;
for i:=1 to 1000 do begin
  if F>2*m then begin
    K:=K+1;
    m:=m+1;
    F:=F/2;
  end
  else T:=K;
end;
write(T);
End.

Головоломка

Ограничение времени 1 секунда
Ограничение памяти 64Mb
Ввод стандартный ввод или input.txt
Вывод стандартный вывод или output.txt
Друзья решили подшутить над Митей, предложив разгадать головоломку, решение которой лежит за гранью его скромных способностей.
Имеется доска размером N×M, в некоторых клетках которой лежат фишки. Можно перекладывать фишки в незанятые клетки. Необходимо минимальным количеством перекладываний фишек получить исходную композицию, повернутую на 180 градусов.
Помогите Мите решить головломку, вычислив, какое наименьшее количество перекладываний потребуется для ее решения.
Формат ввода

В первой строке входного файла заданы два целых числа N и M (1 ≤ N, M ≤ 100). В последующих N строках записано по M символов, причем, символ "." обозначает пустую клетку, а символ "#" обозначает клетку с фишкой.
Формат вывода

В выходной файл выведите, какое наименьшее количество перекладываний фишек потребуется.
Пример 1

Ввод Вывод
1 1
#
0
Пример 2

Ввод Вывод
1 5
##.##
0

Добавлено через 15 минут
я подправил решение, но проходит только 8 тестов

Pascal

var L,W,M,K,T,H,F:real;
    i: integer;
    a:array [1..1000] of integer; 
Begin
read(L,W);
m:=1;
K:=0;
if W<L then begin
  H:=L;
  F:=W;
  end
else begin 
  H:=W;
  F:=L;
  end;
for i:=1 to 1000 do begin
  if H>2*m then begin
    K:=K+1;
    m:=m*2;
    H:=H/2;
  end
  else T:=K;
end;
for i:=1 to 1000 do begin
  if F>2*m then begin
    K:=K+1;
    m:=m*2;
    F:=F/2;
  end
  else T:=K;
end;
writeln(T);
End.

	28.11.2017, 11:29