var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if a[i]<0 then a[i]=abs(a[i]);
for i:=1 to 10 do
write(a[i]);
end.
0...125 - 126 возможных значений.
2^6 < 126 < 2^7
На запись результата каждого измерения требуется 7 бит.
Информационный объём результатов наблюдений: 7•70 = 490 бит.
Это ряд цифр в информатике. 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.
Var
a, b, c: integer;
begin
readln(a, b, c);
if(a * b * c mod 2 = 0) then writeln('Произведение этих чисел является четным числом.')
else writeln('Произведение этих чисел не является четным числом.');
if(a * b * c mod 4 = 0) then writeln('Произведение этих чисел кратно 4.')
else writeln('Произведение этих чисел не кратно 4.')
end.
Смотри в одном мегабайте - 1048576 байтов,
Значит в 189 мегабайтах -198180864 байта