16 Мб * 1000 = 16 000 Кб
16 000 Кб * 1000 = 16 000 000 байт
16 000 000 байт * 8 = 128 000 000 бит
2018₁₀=7E2₁₆ (решение на картинке 1) = 3742₈ (картинка 2)
528,24₁₀=1000010000.00111101011₂ (картинки 3) = 1020.17270243656₈ (картинки 4) = 210.3D70A3D70A4₁₆ (картинки 5)
Var a:array[1..20] of integer;
n,i:integer;
begin
for i:=1 to 20 do begin
a[i]:=random(-150,1000);
if (a[i] mod 5=0) and (a[i] mod 2<>0) then n+=1;
write(a[i],' ');
end;
writeln();
writeln('Искомых элементов: ',n);
end.
Var i,r:integer;
p:real;
begin
write ('Введите число,r')
p:=3.14;
i=2*r*p;
writeln (Ответ ' ',i)
readln(i);
end;