Считая, что каждый символ в кодировке unicode кодируется 16-ю битами, определите информационный объем следующей фразы: умей дело делать, умей и позабавиться.
Здесь задается только длина числа, а само число выводится рандомно, но если что, то можно сделать ввод с клавиатуры.
Var n,x: integer; k,m,i: byte; begin randomize; write ('Введите длину числа (M): '); readln (m); x:=1; // величина ограничителей значений числа при рандомном вводе for i:=2 to m do x:=x*10; n:=random(x,x*10-1); writeln ('n=',n); for i:=1 to m do begin if (n mod 10) mod 2 =0 then k:=k+1; n:=n div 10; end; writeln; writeln ('В этом числе ',k,' четных цифр'); end.
Uses graphabc; var i, j: integer; ar: array[1..10]of integer; b: boolean;
label l1; begin b := false; for i := 1 to 10 do ar[i] := random(10, 300); l1: b := false; for i := 1 to 10 do for j := 1 to 10 do if((ar[i] = ar[j]) or (abs(ar[i] - ar[j]) < 10)) and (i <> j) then begin b := true; ar[i] := random(30, 300); end; if b = true then goto l1; window.Init(0, 0, 800, 600, clwhite); window.IsFixedSize := true; randomize; lockdrawing; pen.Width := 5; for i := 1 to 10 do begin pen.Color := rgb(random(0, 255), random(0, 255), random(0, 255)); drawcircle(400, 300, ar[i]); redraw; end; end.
И так решение: посчитай сколько всего символов в предложении (пробелы тоже считаются). Их равно 38. И теперь 38 умножаем на 16 и равно = 608 бит