Question

Составить программу на языке Паскаль для определения среднего арифметического двух чисел a и b, если a положительное и частное (a/b) в противном случае. ПОЖАЛУЙСТА, ОЧЕНЬ НАДО!!!!

Answer 1

Ответ:

program f;

var a,b,c,d:real;

begin

writeln('Введите два числа');

readln(a,b);

c:=(a+b)/2;

d:=a/b;

if a>0 then writeln(c)

else writeln(d);

end.

Объяснение:

Answer 2

Конечно, вот пример программы на языке Паскаль для определения среднего арифметического двух чисел a и b:

pascalCopy code
program CalculateAverage;

var
  a, b: real; // используем тип real для вещественных чисел
  result: real;

begin
  writeln('Введите два числа: ');
  readln(a, b);

  if a > 0 then
    result := (a + b) / 2
  else
    result := a / b;

  writeln('Результат: ', result:0:2); // выводим результат с двумя знаками после запятой
end.

Скопируйте этот код в вашу среду программирования на Паскале и выполните его. Программа попросит вас ввести два числа, а затем вычислит и выведет среднее арифметическое или частное в зависимости от значения a.