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

Question

Леонид

5 год назад

ОТВЕТЫ

Martin Louisa

Oct 24, 2020

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

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.

178