Обозначим искомое количество килобайт как Х.
100 Кб:1536 бит = Х Кб:768 бит.
Х = (100*768):1536 = 50.
Ответ: 50 Кб.
#include <iostream>
using namespace std;
int main() {
int n, answer = 1;
cin >> n;
int a[n];
for(int i = 0; i < n; i++) cin >> a[i];
for(int i = 0; i < n-1; i++)
if(a[i] >= a[i+1]) {
answer = 0;
break;
}
cout << (answer ? "yes" : "no") << endl;
}
N = 31
c = 1
For b=1 to n
If массив(b) > массив(i) then
If массив(b) > c then
c = a(b)
c2 = a(b-1)
End if
End if
Next
MsgBox c & " " c2
Написано на VBS
Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
Программа написана на PascalABC.NET
// Ниже код:
program element;
var a: array[1..1000] of real; i, j, c: integer; b: real; begin writeln('Введите число элементов: '); read(j); for i:= 1 to j do begin read(a[i]); b:= b + a[i]; end; b:= b / j; for i:= 1 to j do if a[i] > b then inc(c); writeln; write('Ответ: ', c);end.