Предмет: Информатика,
автор: ivanovanataly9
Вычислить площадь треугольника
Pascal ABC
Ответы
Автор ответа:
0
В "старом" стиле:
var
a, h: real;
begin
writeln('Введите длину стороны и длины проведённой к ней высоты:');
readln(a, h);
writeln('Площадь треугольника равна ', a * h / 2)
end.
Тоже самое, но в немного осовремененном виде (у меня запускается на PascalABC.NET 3.3 сборка 1531, если у вас не работает - обновите программу):
begin
var (a, h) := ReadReal2('Введите длину стороны и длины проведённой к ней высоты:');
println('Площадь треугольника равна', a * h / 2);
end.
var
a, h: real;
begin
writeln('Введите длину стороны и длины проведённой к ней высоты:');
readln(a, h);
writeln('Площадь треугольника равна ', a * h / 2)
end.
Тоже самое, но в немного осовремененном виде (у меня запускается на PascalABC.NET 3.3 сборка 1531, если у вас не работает - обновите программу):
begin
var (a, h) := ReadReal2('Введите длину стороны и длины проведённой к ней высоты:');
println('Площадь треугольника равна', a * h / 2);
end.
Похожие вопросы
Предмет: Русский язык,
автор: sitdikovasamira80
Предмет: История,
автор: Sadyaka
Предмет: Английский язык,
автор: Issawkejrkeke
Предмет: Математика,
автор: vbcbrf