Поместятся ли две одинаковые книги в кейс размерами X< Y

2)

var a,b,c: integer;

begin

  read(a,b,c);

  writeln('3 - ',100-a-b-c);

end.

3) много писанины. вообщем длина стороны считается d: =sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))

площадь находится по формуле герона

4)var a: integer;

begin

  read(a);

  writeln('plowad grani = ',a*a);

  writeln('plowad polnoj pov= ',a*a*6);

  writeln('objem= ',a*a*a);

end.

var a: array [1..8,1..5]of integer;

s,i,k: integer;

begin

  randomize;

  for i: = 1 to 8 do begin

        for k: = 1 to 5 do begin

              a[i,k]: = random(20)-10;

              write(a[i,k]: 3,' ');

              if a[i,k] mod 2 = 0 then s: =s+a[i,k];

        end;

        writeln;

  end;

  writeln('s=',s);

end.

папки и тэги

разница в том что файл может находится только в одной папке, но при этом может иметь много тегов

например на фото есть ромашки, кошка и собака. мы цепляем к нему теги - цветы,ромашки,кошки,собаки,животные

а вот определить в какую папку положить рисунок уже куда труднее. собаки, кошки или цветы?

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

var a,b,c,a1,b1,c1: real;

begin

readln(a,b,c);

b1: =a;

c1: =b;

a1: =c;

writeln(a1,b1,c1);

end.