Question

Даны три числа a, b, с. Найти их среднее арифметическое(сумму чисел разделить на их количество).
С клавиатуры вводится число a, количество килобайт. Переведите это число в байты, биты и мегабайты и выведите значения на экран. ​

Answer 1

Код для нахождения среднего, арифмитического ниже.

program fghh;

var

a, b, c: integer;

begin

Writeln('1 число:');

readln(a);

Writeln('2 число:');

readln(b);

Writeln('3 число:');

readln(c);

Writeln('Ответ: ', (a + b + c) / 3, ';');

end.