11000010 в двоичной(194)
302 в восьмеричной(194)
С2 в шеснацетеричной(194)
1111111 в двоичной(7F)
177 в восьмеричной(7F)
127 в десятичной(7F)
Ответ:
1. Задача
2048 × 1536 × 24 =75 497 472 бит
2. Задача
Для кодирования одного из 256 цветов требуется log(2)256 = 8 бит (2^8=256). Объем изображения = 32*32*8 бит = 32*32*8 / 8 байт = 32*32 байт = 32*32 / 1024 Кбайт = 1 Кбайт
Ответ:
Объяснение:
После строки if k=3 then Writeln(f2,x);
нужно поставить k:=0;
Var f1,f2: text;
i, k, x: integer;
Begin
Assign(f1, 'file1.txt');
reset(f1);
Assign(f2, 'file2.txt');
Rewrite(f2);
k:=0;
While not eof(f1) do
Begin
Readln(f1,x);
writeln(x);
for i:=2 to x do
If (x mod i=0) and (i mod 2=0) then inc(k);
if k=3 then Writeln(f2,x);
k:=0;
End;
Close(f1);
Close(f2);
Writeln('Второй файл содержит числа:');
Reset(f2);
While not eof(f2) do
Begin
Readln(f2,x);
Writeln(x);
End;
readln;
Close(f2);
(t - время передачи, I - объем данных, v - скорость передачи)
Дано:
t = 33 c
v = 256000 бит/с
I - ?
Решение:
бит
8448000.0 бит = 1056000.0 байт = 1031.25 Кбайт
1.var a:array[1..100] of integer;
n,s,i:integer;
begin
write('Количество элементов=');
readln(n);
for i:=1 to n do begin
readln(a[i]);
end;
for i:=1 to n do begin
if a[i]>0 then a[i]:=-a[i]
else a[i]:=abs(a[i]);
end;
for i:=1 to n do begin
write(a[i]:3);
end;
end.