Во-первых, не на программе паскаль, а на языке. Это язык программирования.
begin
var a:array [1..5,1..3] of integer;var i:integer; var j:integer;var sum:integer;var count:integer;count:=0; sum:=0;for i:=1 to 5 do for j:=1 to 3 do a[i,j]:=random(2*20+1); for i:=1 to 5 dobegin for j:=1 to 3 do write( a[i,j]+' '); writeln;end;
for i:=1 to 5 do for j:=1 to 3 do if(((i+j) mod 2) = 0) then begin count:=count+1; sum:=sum+a[i,j]; end;writeln('Среднее арифметическое: '+ sum/count);end.
Массив заполняется рандомно
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
1. N=2^i;
32=2^5 => i=5 бит
I=128 КБ * 1024*8=2^20=1048576 бит
k=2^20/5
2. N=2^i;
1024=2^10 => i=10 бит
I=k*i=2^20/5*10=2097152 бит = 256 КБ
На С++ думаю что то же, что и на С
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int n;
cin>>n;
while (n>2) { n=n/3;}
if (n==1) {cout<<"YES";} else
cout<<"NO";}<span>
</span>
1280 или тупо переводим в 2сс или просто представляем в виде сумм чисел 2 в опред. степени( столько будет 0 + одна1)
=1024+128+64+32+8+4
всего 5 единиц
689=519+128+32+8+2 тоже 5 единиц
10110111=128+32+16+7=
245 в 2сс =1110101