Uses crt;
Var a:array [1..7] of integer;
i,s:integer;
begin
for i:=1 to 7 do
readln (a[i]);
clrscr;
for i:=1 to 7 do begin
write (a[i]:4);
if a[i]<0 then s:=s+a[i];
end;
writeln;
writeln (s);
end.
Таблица истинности во вложении.
1) 20*8 = 160 бит
2) 0,5*1024*1024*8 = 4 194 304 бит
3) 25*1024*8 = 204 800 бит
4) 256*8 = 2048 бит
1) 128/1024 = 0,125 кб
2) 5*1024 = 5120 кб
Var
n:integer;
Begin
Write('Введите четырёхзначное число ');
Readln(n);
if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin
Write('Сумма цифр числа ',n);
if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна');
End
else write('Число ',n,' не четырёхзначное. Перезапустите программу');
End.
1. 64х128=8,192 пикс. Выделенный объем делим на кол-во пикселей и получаем число бит на пиксел. Т.е., 3,072/8,172=0.375 байта. Т.е., примерно 3 бита. А 3 бита = 8 комбинаций (от 000 до 111). 8 цветов в палитре.