В формате "целое без знака" с помощью n двоичных разрядов можно записать числа от 0 до 2^n - 1 (это соответствует записям от 000...0 до 111...1, где в каждом числе по n разрядов).
При n = 11 максимальное число равно 111...1_2 (11 разрядов) = 2^11 - 1 = 2048 - 1 = 2047
Программа:
program summa;
var a: integer;
begin
read(a);
a := a MOD 10;
write(a);
end.
Ответ на вопрос:
5
4 мин = 240 сек
256000*240= 61440000 бит за 4 мин
61440000 бит = 7680000 байт = 7500 Кбайт
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -50, 99);
a.Println;
var (s, p) := (0, BigInteger.One);
for var i := 0 to a.High do
begin
s += a[i];
p *= a[i]
end;
Println('Сумма', s, ' произведение', p,
' среднее', s / a.Length)
end.
Получите заспишитесь)
const n=12;
var i,k,l,o:integer; a:array [1..100] of integer;
begin
writeln('Введите кол-во осадков: ');
for i:=1 to n do begin
write('За ', i,'-й месяц: ');
readln(a[i]); l:=l+a[i];
if a[i]<30 then inc(o);
end;
write('О<span>бщее количество осадков за год</span>: ', l,' К<span>оличество засушливых месяцев</span>: ',o);
end.