Заданы координаты (на плоскости) вершин четырехугольника. Определить, является ли он: а) ромбом; б) параллелограммом (программа Паскаль)

а)
program p1;
var x1,y1,x2,y2,x3,y3,x4,y4,a,b,c,d:real;
function romb(a,b,c,d:real):bolean;
begin
if (a=b)and(b=c)and(c=d)then
 romb:=true;
end;
begin
write(x1,y1,x2,y2,x3,y3,x4,y4);
readln(x1,y1,x2,y2,x3,y3,x4,y4);
a:=sqrt(sqr(x2-x1)+sqr(y2-y1));
b:=sqrt(sqr(x3-x2)+sqr(y3-y2));
c:=sqrt(sqr(x4-x3)+sqr(y4-y3));
d:=sqrt(sqr(x1-x4)+sqr(y1-y4));
if romb(a,b,c,d) then
writeln('четырехугольник является ромбом');
else
writeln('четырехугольник не является ромбомж');
end.

б)
uses crt;
const t=0.00001;
procedure Sered(x1,y1,x2,y2:real;var xs,ys:real);
begin
xs:=(x1+x2)/2;
ys:=(y1+y2)/2;
end;
var x1,y1,x2,y2,x3,y3,x4,y4,sx1,sy1,sx2,sy2:real;
begin
clrscr;
writeln('Введите координаты вершин прямоугольника в порядке обхода:');
writeln('Вершина 1:');
write('x=');readln(x1);
write('y=');readln(y1);
writeln('Вершина 2:');
write('x=');readln(x2);
write('y=');readln(y2);
writeln('Вершина 3:');
write('x=');readln(x3);
write('y=');readln(y3);
writeln('Вершина 4:');
write('x=');readln(x4);
write('y=');readln(y4);
Sered(x1,y1,x3,y3,sx1,sy1);
writeln('Координаты середины диагонали 1-3:');
writeln(sx1:0:2,' ',sy1:0:2);
Sered(x2,y2,x4,y4,sx2,sy2);
writeln('Координаты середины диагонали 2-4:');
writeln(sx2:0:2,' ',sy2:0:2);
if(abs(sx1-sx2)<t)and(abs(sy1-sy2)<t)then write('Это параллелограмм')
else write('Это не параллелограмм');
readln
end.

в)
Function Pryamoug(Ax,Ay,Bx,By,Cx,Cy,Dx,Dy : Integer) : Boolean;
  Function Leng(x1,y1,x2,y2 : Integer) : Real;
  Begin
    Leng:=Sqrt(sqr(x2-x1)+sqr(y2-y1));
  end;
Begin
   Pryamoug:=((Leng(Ax,Ay,Cx,Cy)=Lengt(Bx,By,Dx,Dy)) and
              (Leng(Ax,Ay,Bx,By)=Lengt(Cx,Cy,Dx,Dy)) and
              (Leng(Ax,Ay,Dx,Dy)=Lengt(Bx,By,Cx,Cy)));
end;

г)
program koord;
uses crt;
var
  x1,y1,x2,y2,x3,y3,x4,y4:integer;
begin
  clrscr;
  writeln('vvedite koordinati tochek kvadrata ABCD cherez enter( x, enter, y, enter, x, enter...)');
  writeln;
  readln(x1);
  readln(y1);
  readln(x2);
  readln(y2);
  readln(x3);
  readln(y3);
  readln(x4);
  readln(y4);
  if sqrt(sqr(x4-x2)+sqr(y4-y2))=sqrt(sqr(x3-x1)+sqr(y3-y1)) then
  writeln('da eto taki kvadrat')
  else
  writeln('net eto ne kvadrat');
  readln
end.

объяснение:

добрый день на сколько я понимаю ты имеешь в виду можно ли поступить сдав егэ только по и общество знанию? на сколько я знаю ( пусть меня кколлеги поправят) на егэ есть два обязательных экзамена это матеша и а далее ты сам можешь ввыбрать какие предметы сдавать а с 21 года ещё будет иностранный язык как обязательный. короче тебе надо решить в каких именно гос. универах ты хочеш учиться и за пол года до подачи документиков спросить у приъёмной коммиссии сколько в сумме по егэ мне надо для поступления на бюджет и смогу ли я поступить на бюджет если на высшийи общество знание? рекомендую обратиться с такими вопросами в 2 а лучше в 4 разных универа

Объяснение:

В суспільстві ХХІ століття потреба в масовій інформації («масова» в розумінні статті 20 Закону України «Про інформацію») значно посилена, оскільки громадяни все більше прагнуть самостійно оцінювати явища і події, активно брати участь у суспільних і політичних процесах.

Сьогодні населення великих міст отримує інформацію, здебільшого з Інтернету чи аудіовізуальних ЗМІ. Тоді, чи залишаються актуальними для споживачів друковані засоби масової інформації: газети, журнали та інші друковані ЗМІ? Чи не будуть витіснені найближчим часом із суспільного споживання традиційні паперові носії масової інформації телебаченням та Інтернетом, новими електронними медіа?

Згідно з даними, наведеними в Аналітичній доповіді Національного інституту стратегічних досліджень «Інформаційне суспільство в Україні: глобальні виклики та національні можливості» (2010 рік), за показником рівня готовності до впровадження е-урядування Україна 2010 року не потрапила навіть до перших 50-ти країн рейтингу. Утім, із пострадянських країн у цьому списку присутні лише Естонія (20-те місце) і Казахстан (46-те місце). Згідно з черговим щорічним дослідженням країн щодо активності використання в них інформаційних технологій, проведеним Всесвітнім економічним форумом (World Economic Forum), перше місце в рейтингу, країни, в якому ранжирувані відповідно до "індексу мережної готовності" (Networked Readіness Іndex 2009- 2010, NRІ), зайняла Швеція, а Росія й Україна виявилися відповідно лише на 80-му і 82-му місцях із 134 країн світу.