1. Какую функцию в среде программирования выполняют КС ты визуальной среды? 2. Что вы можете сказать о компоненте RadioGroup и его свое 3. Как вы опишете работу компонента CheckBox? 4. Какие свойства компонента Memo вы можете перечислить 5. Какова функция компонента Image? 6. Как выбираются случайные числа?
begin
writeln('Введите строны первого треугольника: ');
read(a1, b1, c1);
writeln('Введите стороны второго треугольника: ');
read(a2, b2, c2);
p1 := (a1 + b1 + c1) / 2;
p2 := (a2 + b2 + c2) / 2;
s1 := sqrt(p1 * (p1 - a1) * (p1 - b1) * (p1 - c1));
s2 := sqrt(p2 * (p2 - a2) * (p2 - b2) * (p2 - c2));
if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln('Равновеликие')
else writeln('Неравновеликие');
end.