A16 + 1110 = 1B26
или 1101100100110 в двоичной
Данный треугольник означает разницу, то есть минус
program z1;
var x1,x2,x3,y1,y2,y3:integer;
d1,d2,d3,s,p,p1:real;
begin
writeln ('Введите координаты первой вершины (x1 и y1) ');
readln (x1,y1);
writeln ('Введите координаты второй вершины (x2 и y2)');
readln (x2,y2);
writeln ('Введите координаты третей вершины (x3 и y3)');
readln (x3,y3);
d1:=sqrt(sqr(x1-x2)+sqr(y1-y2));
d2:=sqrt(sqr(x2-x3)+sqr(y2-y3));
d3:=sqrt(sqr(x3-x1)+sqr(y3-y1));
p:=d1+d2+d3;
p1:=p*0.5;
s:=sqrt((p1)*(p1-d1)*(p1-d2)*(p1-d3));
if (d1+d2<=d3) or (d1+d3<=d2) or (d2+d3<=d1) then writeln ('Такой треугольник не существует') else
writeln ('Периметр треугольника = ' , p , ' , площадь треугольника равна = ', s);
end.
Program zadacha;
var a,b,s:integer;
begin
writeln('Введите кол-во жителей: ');
readln(a);
writeln('Введите площадь государства: ');
readln(b);
s:=a/b;
writeln(s);
end.
Манная каша на молоке: рецепт, как приготовить Молоко нагреть до кипения, добавить соль, сахар и, помешивая, тонкой стрункой всыпать крупу (это обязательно иначе в каше образуются комочки). Продолжать варку, постоянно помешивая. Когда каша загустеет, убавить нагрев и варить 10-15 мин. при слабом нагреве.