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< 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 коробка поместится в чемодан

все истина т.к.если пишется "или" то достаточно чтобы что-то одно было правдой,тогда и все истинно.

 

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.