Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

4.52. Вася пытается высунуть голову в форточку размерами a и b см. Приняв ус-
ловно, что его голова — круглая диаметром d см, определить, сможет ли Вася
сделать это. Для прохождения головы в форточку необходим зазор в 1 см
с каждой стороны.
4.53. Даны вещественные положительные числа a, b, c, x, y. Выяснить, пройдет ли
кирпич с ребрами a, b, c в прямоугольное отверстие со сторонами x и y. Про-
совывать кирпич в отверстие разрешается только так, чтобы каждое из его ре-
бер было параллельно или перпендикулярно каждой из сторон отверстия.
4.54. Пассажир должен был сдать в камеру хранения пустой чемодан в форме па-
раллелепипеда размерами
1a , 2 a
и
3a
см и коробку размерами
1b , 2b
и
3b
см.
Оплачивать нужно каждый размещаемый предмет. Определить, сможет ли
пассажир сэкономить на оплате, поместив коробку в чемодан так, что стороны
чемодана и коробки будут параллельны либо перпендикулярны друг другу.

Ответ оставил Гость

Program p452;
var
  a,b,m,d:integer;
begin
  Write(Введите размеры форточки (а,b) в см: );
  Read(a,b);
  Write(Введите диаметр головы Васи в см: );
  Read(d);
  if a  { +2 - это зазор по 1 см с обоих сторон }
  if d<=m then Writeln(Голова проходит)
  else Writeln(Голова не проходит)
end.

Тестовое решение:
Введите размеры форточки (а,b) в см: 25 40
введите диаметр головы Васи в см: 23
Голова проходит

program p453;
var
  a,b,c,x,y,m1,m2,n1,n2:integer;
begin
  Write(Введите размеры кирпича в см (a,b,c): );
  Read(a,b,c);
  Write(Введите размеры отверстия в см (x,y): );
  Read(x,y);
  if a    if a      m1:=a;
      if b    end
    else begin m1:=c; m2:=a end
  else
    if b      m1:=b;
      if a    end
    else begin m1:=c; m2:=b end;
  if x  else begin n1:=y; n2:=x end;
  if (m1<=n1) and (m2<=n2) then Writeln(Кирпич пройдет в отверстие)
  else Writeln(Кирпич не пройдет в отверстие)
end.

Тестовое решение:
Введите размеры кирпича в см (a,b,c): 10 4 12
Введите размеры отверстия в см (x,y): 5 9
Кирпич не пройдет в отверстие

program p454;
var
  a,b:integer;
begin
  Write(Введите значения а и b: ); Read(a,b);
  Writeln(Размеры чемодана ,3*a,x,2*a,x,a);
  Writeln(Размеры коробки ,3*b,x,2*b,x,b);
  if b  else Writeln(Коробка не поместится в чемодан)
end.

Тестовое решение:
Введите значения а и b: 18 16
Размеры чемодана 54x36x18
Размеры коробки 48x32x16
Коробка поместится в чемодан

Оцени ответ