1. Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3 Найти его периметр и площадь, используя формулу для расстояния между двумя точками на плоскости. Для нахождения площади треугольника со сторонами a, b, c использовать формулу Герона: S = (p·(p − a)·(p − b)·(p − c))1/2, где p = (a + b + c)/2 — полупериметр. Расстояние вычисляется по формуле a =((x2 − x1)2 + (y2 − y1)2)1/2 2. Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду тысяч в записи этого числа.

ответ: делай сам, а балы я заберу

Объяснение:

#include <iostream>

#include <stdio.h>

using namespace std;

int main()

{

   int sum=0,n,count=1, count_ch=0;

   float result;

   cin >> n;

   if (n<10000)

   {

       while (n != 0)

       {

           if (n % 2 == 0)

           {

               sum += n;

               count_ch++;

           }

           cin >> n;

           count++;

           if (n > 10000 or count > 1000)

           {

               break;

           }

       }

   }

   result = sum/count_ch;

   printf("%.2f",result);

}

1) 

var v1,a,v2,v3,d:integer;

begin

readln(a,b);

a:=a/10;

v1:=a*a*a;

v2:=4/3*3,14*(d/2)(d/2)(d/2);

v3:=v1-v2;

Writeln("Объем выплеснутой воды ",v3);

readln();

end.

 

2) 

var

i,num,a,b,c,d,e,f, sum1,sum2:integer;

 

begin

readln(num);

a:=num div 100000;

num:=num mod 100000;

b:=num div 10000;

num:=num mod 10000;

c:=num div 1000;

num:= num mod 1000;

d:=num div 100;

num:= mod 100;

e:=num div 10;

f:=num mod 10;

 sum1:=a+b+c;

sum2:=d+e+f;

If (sum1=sum2) then

Writeln("Да, является.");

else writeln("Нет, не является.");

readln();

end.