Function ST(a,b,c:real):real;
var
p:real;
begin
p:=(a+b+c)/2;
ST:=sqrt(p*(p-a)*(p-b)*(p-c))
end;
var
a,s:array[1..3] of real;
i,k:integer;
begin
Write('Введите длину стороны каждого треугольника: ');
for i:=1 to 3 do begin
Read(a[i]);
s[i]:=ST(a[i],a[i],a[i]);
end;
if s[1]>s[2] then k:=1 else k:=2;
if s[3]>s[k] then k:=3;
Writeln('Треугольник номер ',k,' имеет наибольшую площадь')
end.
Пример
Введите длину стороны каждого треугольника: 6 7.3 4.18
Треугольник номер 2 имеет наибольшую площадь
1) 2^3=8 компьютеров в А
2) 32-8=24 компьютера в В
10 - б
11 - В
12 - А
13 - В
14 - Д
18 - Г
Ставь "Мне нравиться " и 5 звезд
А) память человека
б) экран телевизора
в) тетрадь
г) диск с музыкальными произведениями
Type
Frac = record
P: integer;
Q: 1..32767
end;
function gcd(a: integer; b: integer): integer;
{Нахождение НОД}
var
i: integer;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
result := a
end;
function RedFrac(a: Frac): Frac;
{Сокращение дроби}
var
igcd: integer;
r: Frac;
begin
igcd := gcd(a.P, a.Q);
r.P := a.P div igcd;
r.Q := a.Q div igcd;
RedFrac := r
end;
function Add(a, b: Frac): Frac;
{Сложение дробей}
var
r: Frac;
begin
r.P := a.P * b.Q + b.P * a.Q;
r.Q := a.Q * b.Q;
Add := RedFrac(r)
end;
function Mult(a, b: Frac): Frac;
{Умножение дробей}
var
r: Frac;
begin
r.P := a.P * b.P;
r.Q := a.Q * b.Q;
Mult := RedFrac(r)
end;
var
m, n, k: Frac;
begin
m.P := 4; m.Q := 15; {4/15}
n.P := 9; n.Q := 25; {9/25}
k := Add(m, n);
Writeln(k.P, '/', k.Q);
k := Mult(m, n);
Writeln(k.P, '/', k.Q);
end.
<u>Результат выполнения программы:</u>
47/75
12/125