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.