4*8+7 = 39 (в десятичной)
39/16+39%16 = 27(в шестнадцатеричной)
Ответ: 27.
begin
var a := 1234567;
var s := 0;
while a > 0 do
begin
s += Ord(a mod 10 mod 2 = 0);
a := a div 10;
end;
s.Println;
end.
Найдем размер рисунка в битах:
768*96*log2(8)=73 728*3=221 184 бит
Переведем в килобайты:
221 184/(8*1024)=27 кБт
Program a;
var a: array [1..10] of integer;
n,s: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20)-10;
write(a[i]);
end;
readln(n);
for i:=n to 9 do begin
s:=a[i+1];
a[i+1]:=a[i];
a[i]:=s;
end;
for i:=1 to 9 do
writeln (a[i]);
end.