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.