Question

Пример программы, реализующей подсчёт суммы 3 переменных: programSum; vara,b,c,S: real; begin   readln(a,b,c);   S := a+b+c;   writeln(S); end. Написать программы для решения следующих задач: Вычисление среднего арифметического 3 чисел. Вычисление площади треугольника по введённым основанию и высоте.

Answer 1

Ответ:

готово

Объяснение:

program srednee;

var a, b, c, S: real;

begin

 readln(a, b, c);

 S := (a + b + c) / 3;

 writeln('Среднее арифметическое равно ', S);

end.

---------------------------------------------------------------------------

program ploshad;

var a, h, S: real;

begin

 readln(a, h);

 S := a * h / 2;

 writeln('Площадь треугольника равна ', S);

end.

Answer 2

Конечно, вот две программы на Pascal для решения данных задач:

1. Вычисление среднего арифметического трех чисел:

pascalCopy code
program AverageCalculation;
var
  a, b, c, average: real;
begin
  writeln('Введите три числа:');
  readln(a, b, c);
  
  average := (a + b + c) / 3;
  
  writeln('Среднее арифметическое чисел: ', average:0:2);
end.

2. Вычисление площади треугольника по введенным основанию и высоте:

pascalCopy code
program TriangleAreaCalculation;
var
  base, height, area: real;
begin
  writeln('Введите длину основания треугольника:');
  readln(base);
  
  writeln('Введите высоту треугольника:');
  readln(height);
  
  area := 0.5 * base * height;
  
  writeln('Площадь треугольника: ', area:0:2);
end.

Скопируйте каждый из приведенных выше кодов и вставьте их в среду программирования на Pascal, такую как Lazarus или Free Pascal, чтобы выполнить их и проверить результаты.