// PascalABC.NET
function КвадратПлощади(a, b, c: real): real;
begin
var p := (a + b + c) / 2; // полупериметр
Result := p * (p - a) * (p - b) * (p - c)
end;
begin
var eps := ReadReal('Точность решения:');
var (a, b, c) := ReadReal3('Сторона треугольника 1:');
var s1 := КвадратПлощади(a, b, c);
(a, b, c) := ReadReal3('Сторона треугольника 2:');
var s2 := КвадратПлощади(a, b, c);
Print(if Abs(s1 - s2) <= eps then 'ИСТИНА' else 'ЛОЖЬ')
end.
var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
ответ: окей
объяснение:
для квадрата:
procedure tform1.button1click(sender: tobject);
var
a,b,c,d,p,s: real;
begin
a: =2; b: =2; c: =2; d: =2;
if ((a=b)and(c=d)and(a=d))then
begin
p: =(a+b+c+d)/2;
s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));
showmessage('s='+floattostr(s));
end else showmessage('это не квадрат');
end;
для треугольника:
procedure tform1.button1click(sender: tobject);
var
a,b,c,p,s: real;
begin
a: =2; b: =2; c: =3;
if (abs(a-b)
begin
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
edit1.text: =floattostr(s);
end else showmessage('не треугольник');
end;
#include <iostream>
#include <cmath>
using namespace std;
#define ld long double
struct triangle{
ld a;
ld b;
ld c;
};
ld square(triangle t){
ld p = (t.a + t.b + t.c)/2;
return sqrt(p * (p - t.a) * (p - t.b) * (p - t.c));
}
triangle t1,t2;
void solve(){
if(square(t1) == square(t2))
cout << "ИСТИНА";
else
cout << "ЛОЖЬ";
}
signed main() {
ios_base::sync_with_stdio(0);
cin.tie(0);
cout.tie(0);
cin >> t1.a >> t1.b >> t1.c >> t2.a >> t2.b >> t2.c;
solve();
}