Моя папка - это хобби, школа, музыка, картинки, видеозаписи.
<u>Дано:</u>K=3*40*60
i = 6 (т.к
)
I = ?
<u>Решение:</u> бит. В задании нужно перевести биты в байты. 1 байт = 8 бит. Разделим на 8 (
)
Байт
Считаем и в итоге получаем
Байт
<em>Ответ: 5400 байт</em>
Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.
Двоичная (0,1)
Восьмиричная (0,1,2,3,4,5,6,7)
Десятичная (0,1,2,3,4,5,6,7,8,9)
Шестнадцатиричная (0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F)
Лист защищен без пароля, чтобы случайно не повредить формулы.