Напишите программу в Pascal АВС для нахождения периметра.
Напишите программу в Pascal АВС для нахождения периметра.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Интересные статьи из справочника
Поможем написать учебную работу
Отвечай на вопросы, зарабатывай баллы и трать их на призы.
Подробнее
Подробнее
var
side1, side2, side3, perimeter: Real;
begin
// Ввод данных
writeln('Введите длину первой стороны:');
readln(side1);
writeln('Введите длину второй стороны:');
readln(side2);
writeln('Введите длину третьей стороны:');
readln(side3);
// Вычисление периметра
perimeter := side1 + side2 + side3;
// Вывод результата
writeln('Периметр треугольника равен: ', perimeter);
end.
Программа запрашивает у пользователя длины трех сторон треугольника и вычисляет их сумму, которая и является периметром треугольника. Результат выводится на экран.