Question

TURBO PASCAL. створити програму яка визначає середнє з трьох чисел тільки будь ласка не пишіть програму на пайтон, і не це не середнє арифметичне, а просто середнє з 3 чисел ТТ​

Answer 1

Ответ:

program average;

var

num1, num2, num3: integer;

average: integer;

begin

writeln('Enter three numbers:');

readln(num1, num2, num3);

average := (num1 + num2 + num3) div 3;

writeln('The average of the three numbers is: ', average);

readln;

end.

Answer 2

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

pascalCopy code
program Serednie;
var
  num1, num2, num3, average: real;
begin
  writeln('Введіть перше число: ');
  readln(num1);
  
  writeln('Введіть друге число: ');
  readln(num2);
  
  writeln('Введіть третє число: ');
  readln(num3);
  
  average := (num1 + num2 + num3) / 3;
  
  writeln('Середнє значення: ', average:0:2);
  
  readln;
end.

У цій програмі користувачеві буде запропоновано ввести три числа, після чого програма обчислить середнє значення і виведе його на екран.

Зверніть увагу, що тип даних real використовується для зберігання чисел з плаваючою крапкою. Якщо ви бажаєте використовувати цілі числа, то замість real використовуйте тип integer.

Будь ласка, переконайтеся, що ви використовуєте середовище розробки, яке підтримує Turbo Pascal, для запуску цієї програми.