Создать программу языком Delphi
(мне только нужен сам код)
Визначити за данними сторонами , чи являється трикутник рівностороннім.

15 Окт 2019 в 04:46
207 +1
0
Ответы
1
program IsEquilateralTriangle;
uses
SysUtils;
var
side1, side2, side3: Integer;
begin
WriteLn('Enter the length of the first side: ');
ReadLn(side1);
WriteLn('Enter the length of the second side: ');
ReadLn(side2);
WriteLn('Enter the length of the third side: ');
ReadLn(side3);
if (side1 = side2) and (side2 = side3) then
WriteLn('The triangle is equilateral.')
else
WriteLn('The triangle is not equilateral.');
end.

Введите длины трех сторон треугольника, чтобы программа определила, является ли треугольник равносторонним.

19 Апр 2024 в 11:10
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир