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 см. оплачивать нужно каждый размещаемый предмет. определить, сможет ли пассажир на оплате, поместив коробку в чемодан так, что стороны чемодана и коробки будут параллельны либо перпендикулярны друг другу.
283
382
Ответы на вопрос:
Program p452; var a,b,m,d: integer; begin write('введите размеры форточки (а,b) в см: '); read(a,b); write('введите диаметр головы васи в см: '); read(d); if a< b then m: =a+2 else m: =b+2; { +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< b then if a< c then begin m1: =a; if b< c then m2: =b else m2: =c end else begin m1: =c; m2: =a end else if b< c then begin m1: =b; if a< c then m2: =a else m2: =c end else begin m1: =c; m2: =b end; if x< y then begin n1: =x; n2: =y end 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< a then writeln('коробка поместится в чемодан') else writeln('коробка не поместится в чемодан') end. тестовое решение: введите значения а и b: 18 16 размеры чемодана 54x36x18 размеры коробки 48x32x16 коробка поместится в чемодан
Исходное число: 103 3*(100х+10у+3)+1=300+10х+у 290+29у=290 10х+у=10 так как числа у нас целые, то х=1, у=0. подставляем в формулу исходного числа: 100х+10у+3=100+0+3=103. проверка: 103*3+1=309+1=310 103 -> 310 (перестановка цифры 3 начало) 310=310 - верно. --
Популярно: Информатика
-
Helryuwi1219.12.2020 20:12
-
Marvarick27.10.2022 02:38
-
Dasa28228.03.2021 09:30
-
Nika2006klubnika27.09.2020 05:22
-
SkvidLe25.03.2021 11:06
-
Misis1114.04.2023 09:46
-
Ольгаok09.05.2020 09:31
-
vadimnigamaev09.12.2020 07:01
-
misha08120.12.2022 01:08
-
алина389403.02.2022 07:52