Найдем кол-во бит в одном пикселе:
4=2^x
x=2
Объем видеопамяти = 320*240*2=153600 бит=19200 байт = 18,75 Кбайт
450 = <span>111000010 </span>
0000000111000010 - прямой
1111111000111101 - обратный
+1
1111111000111110 - дополнительный
з.ы числа написаны в 2битной сетке (если нужно убери первые нули)
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var n2 := n div 2;
(a[:n2].Reverse + a[n2:].Reverse).Println
end.
Ответ:
Объяснение:
1) program z1;
var a,sum:integer;
begin
a:=0;
sum:=0;
while (a<0) or (a=0) do
begin
sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
2) program z2;
const N = 10;
var i:integer;
var b,d:real;
var a:array[1..N] of integer;
begin
for i:=1 to N do
readln (a[i]);
for i:=1 to N do
write(a[i]:4);
writeln;
for i:=1 to N do
begin
b:=sqrt(a[i]);
d:=frac(b);
if d=0 then
write (a[i]:4);
end;
end.
18)а 19)а 20)б 38-55)а б в г д