Question

Даны два числа A и B. Найди их среднее арифметическое: (a+b)/2. Люди сделайте на delphi надо по программированию заранее спс.

Answer 1

A = в Edit1
b = в Edit2
Результат в Label1

var
    a, b, c: real;
begin
    a := StrToFloat(Edit1.Text);
    b := StrToFloat(Edit2.Text);
    Label1.Caption := FloatToStr((a + b) / 2);
end;

Answer 2

Для решения данной задачи на Delphi можно использовать следующий код: ```delphi program AverageCalculation; var a, b, average: Integer; begin // Ввод чисел A и B Write('Введите число A: '); Readln(a); Write('Введите число B: '); Readln(b); // Вычисление среднего арифметического average := (a + b) div 2; // Вывод результата Writeln('Среднее арифметическое чисел A и B равно: ', average); // Ожидание закрытия окна консоли Readln; end. ``` Программа сначала запрашивает у пользователя ввод чисел A и B. Затем выполняется вычисление среднего арифметического по формуле (a + b) / 2. Результат выводится на экран. Пример работы программы: ``` Введите число A: 5 Введите число B: 7 Среднее арифметическое чисел A и B равно: 6 ``` Надеюсь, данная информация была полезной! Если у вас возникнут еще вопросы, пожалуйста, обращайтесь.