Массив? каталог папка, директорияне знаю, вроде так
gav973
17.02.2020
Массив, мне кажется =)
orb-barmanager
17.02.2020
Тут особо можно не думать. замечаем, что в результате надо получить значение а⊕ ā в восьмиразрядном представлении. результат такой операции - всегда все единицы во всех разрядах. а разрядов эти по условию 8.если формат знаковый, то старший разряд, равный 1 означает, что число отрицательное, а они обычно хранятся в дополнительном коде. для перевода в основной код инвертируем все разряды, кроме старшего знакового. получаем семь нулей. и прибавляем единицу, окончательно получая 10000001, т.е. -1 в двоичной системе. в десятичной системе (как и в любой другой с натуральным основанием, единица - всегда единица. ответ: -1
Anna572
17.02.2020
// pascalabc.net 3.0, сборка 1076 type point=record x,y: real end; line=record a,b: point end; triangle=record a,b,c: point; sa,sb,sc: real; { длины сторон } end; procedure getpoint(pointname: char; var m: point); begin write('введите координаты точки ',pointname,'(x,y): '); read(m.x,m.y) end; function linelength(a,b: point): real; begin linelength: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; procedure createtriangle(var t: triangle; var l: boolean); begin with t do begin getpoint('a',a); getpoint('b',b); getpoint('c',c); sa: =linelength(b,c); sb: =linelength(a,c); sc: =linelength(a,b); l: =(sa+sb> sc) and (sa+sc> sb) and (sb+sc> sa) end end; function triangleislikes(t1,t2: triangle): boolean; var k1,k2,k3: real; begin k1: =t1.sa/t2.sa; k2: =t1.sb/t2.sb; if k1=k2 then begin k3: =t1.sc/t2.sc; triangleislikes: =k1=k3 end else triangleislikes: =false end; var t1,t2: triangle; legal: boolean; begin writeln('*** первый треугольник ***'); createtriangle(t1,legal); if legal then begin writeln('*** второй треугольник ***'); createtriangle(t2,legal); if legal then if triangleislikes(t1,t2) then writeln('треугольники подобны') else writeln('треугольники не подобны') else writeln('треугольник невозможно построить') end else writeln('треугольник невозможно построить') end.