2018₁₀=7E2₁₆ (решение на картинке 1) = 3742₈ (картинка 2)
528,24₁₀=1000010000.00111101011₂ (картинки 3) = 1020.17270243656₈ (картинки 4) = 210.3D70A3D70A4₁₆ (картинки 5)
Program asd;
USES crt;
var a,n,p,i:integer;
BEGIN
Clrscr;
Writeln('Vvedite kol-vo ryada: ');
Readln(n);
p:=1;
For i:=1 to n do
begin
p:=p*i;
end;
Writeln('Proisvedenie ryada: ',p);
Readln;
<span>END.</span>
Var A,B,S:array[1..62] of real;i,j,k:integer;n,m:real;Year,Month, Day, Wk : Word;
begin
Year:=2015;Month:=07; Day:=01;
randomize;
for j:= 1 to 2 do begin
if j= 2 then Month:= Month + 1;
for I:= 1 to 31 do begink:= k +1;
n:= Round((random()*100 +1) *100);
m:= Round((random()*150 +1) *100);
A[k]:= n / 100;
B[k]:= m / 100;
S[k]:= A[k] + B[k];Day:= I;
write(Day, '.',Month, '.',Year);writeln(' ', A[k]:8, B[k]:8, S[k]:9);end;
end;<span>end.</span>
N=2^i
n=64
64=2^6
6 бит на пиксель
((1024*768)*6)/(8*1024)=576 Кбайт