3 мб = 3072 кб
4096 - 3072 = 1024 кб
Что то подобное без программирования, только формулы.
Если использовать VBA, можно получить лучше оформленные отчеты.
DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
Обозначим неизвестное нам основание как x. По общей формуле представления чисел в позиционной системе счисления (поищите в сети саму формулу, на этом ресурсе ссылки, к сожалению, запрещены:) ) 30 можно представить как 3*x^1 + 0*x^0 т.е. 3x и приравнять к 24. Выходит:
3x = 24
x = 8
Основание неизвестной системы счисления: 8.
Если есть вопросы по поводу решения - оставляйте в комментариях:)
Var
a:array[1..10] of integer;
i:integer;
begin
randomize;
writeln('Ishodnyy massiv:');
for i:=1 to 10 do
begin
a[i]:=random(10)+1;
write(a[i],' ');
end;
for i:=1 to 5 do
begin
a[i*2]:=a[i*2]+a[i*2-1];
a[i*2-1]:=a[i*2]-a[i*2-1];
a[i*2]:=a[i*2]-a[i*2-1];
end;
writeln('Novyy massiv:');
for i:=1 to 10 do
write(a[i],' ');
end.