Если знаешь только стандартную(10тичную) таблицы умножения-сложения, то работай через неё
10h=16
10(8)=8
10b=2
Поэтому выражение равно 16+8*2=32=2^5=10 0000b
Function getSumFor(n:integer):integer;var sum, i:integer;begin sum := 0; for i:=1 to n do begin sum := sum + i; end; result := sum;end;
function getSumWhile(n:integer):integer;var sum, i:integer;begin sum := 0; i := 1; while i <= n do begin sum := sum + i; i := i + 1; end; result := sum;end;
function getSumRepeat(n:integer):integer;var sum, i:integer;begin i := 1; sum := 0; repeat sum := sum + i; i := i + 1; until i > n; result := sum;end;
begin writeln(getSumFor(1)); writeln(getSumWhile(1)); writeln(getSumRepeat(1));end.
Ответ к=7, проходя по алгоритму к прибавляется на единицу до тех пор, пока а=в=1
Дано:
N = 128 цветов в палитре
Найти:
i - ?
Решение:
N = 2^i (i - глубина кодирования одного пикселя, те столько битов требуется для одного пикселя при данном количестве цветов)
Подставим в формулу:
128 = 2^i
Отсюда
I = 7 бит
Ответ 7 бит видеопамяти требуется для одного пикселя для хранения 128-цветного изображения.
Var x,y:real;
begin
read(x,y);
if ((x>=3) and (x<=5)) or ((x>=7) and (x<=8)) then writeln(x);
if (y>=0) and (y<=15) and (y<>13) then writeln(y);
end.
если есть вопросы-пиши