1. Даны координаты трех вершин треугольника: (x1, y1), (x2, y2), (x3, y3). Найти его периметр и площадь, - id1317776620220414 от Beario 14.04.2022 20:09

Question

Информатика: 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. Используя одну операцию деления нацело и одну операцию взятия остатка

Beario · Accepted Answer

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.

MOGZ ответил