Question

Паскаль програма знаходження середнього арифметичного двох чисел

Answer 1

Var a,b:integer;
begin
read(a,b);
write((a+b)/2);
end.

Answer 2

Звісно, ось проста програма на Pascal, яка знаходить середнє арифметичне двох чисел:

program Середнє_арифметичне;

var
  число1, число2, середнє: real;

begin
  // Запитайте користувача про перше число
  write('Введіть перше число: ');
  readln(число1);

// Запитайте користувача про друге число
  write('Введіть друге число: ');
  readln(число2);

// Знайдіть середнє арифметичне
  середнє := (число1 + число2) / 2;

// Виведіть результат
  writeln('Середнє арифметичне чисел ', число1, ' і ', число2, ' дорівнює ', середнє);

// Завершіть програму
  readln;
end.

У цій програмі ми використовуємо змінні типу `real` для збереження чисел і використовуємо прості операції додавання та ділення для знаходження середнього арифметичного. Програма також виводить результат на екран.

Не забудьте, що Pascal - це старовинна мова програмування, і вона може не бути так актуальною в сучасному програмуванні, але для навчання вона є чудовим вибором.