1 кбайт=1024 байт
1мегобайт=1024кбайт
1гигабайт=1024мегобайт
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
write(range(1,ReadInteger()).Sum());
end.
От 0 до 100 - это 101 разное значение. 64<101<128, значит для кодирования надо 7 бит, 128=2^7. 7*80=560 бит. 560 бит = 560/8 байт = 70 байт.
Const n=10;
var a,s,k,i:integer;
begin
Randomize;
s:=0; k:=0;
writeln('Числа:');
for i:=1 to n do
begin
a:=random(201)-100;
write(a:5);
if (a>0)and(a mod 2 = 1) then begin s:=s+a; k:=k+1; end;
end;
writeln;
if k>0
then writeln('Среднее арифметическое положительных нечетных чисел = ',s/k:5:2)
else writeln('Среди чисел нет положительных нечетных');
end.
Пример:
Числа:
11 -60 13 -62 15 -92 -71 87 -15 12
Среднее арифметическое положительных нечетных чисел = 31.50
Вот к прмиеру..
посмотир в фотографиях может там будет я тут нашла не много............................