ну если не надо еще в какие-нибудь другие единицы то правильно, но ты понял как добавить еще точности, так ведь?
program n_1;
uses crt;
var
n: longint;
k: integer;
function Sym(n: integer): char;
begin
case n of
0..9: Sym := chr(48 + n);
10..36: Sym := chr(55 + n);
end;
end;
function funct(n: longint; k: integer): string;
var
st: string;
begin
st := '';
if n = 0 then st := '0' else
begin
while n >= 1 do
begin
st := Sym(n mod k) + st;
n := n div k;
end;
end;
DecToX := st;
end;
begin
readln(n);
repeat
readln(k);
until (2 <= k) and (k <= 36);
writeln(funct(n, k));
end.
16 (одиночных) + 7 (из 4 триугольников) + 3 (из 9 триугольников) + 1 (большой) = 27
1) program ab;vars:string;i,k:integer;begins:='мама';for I:=1 to length(s) do begin k:=pos('м',s); if k<> 0 then begin delete(s,k,1); insert('п',s,k);end; end; writeln(s); end.
2 )program ab;
vars:string;i,k,n,j:integer;beginreadln(s);n:=0;k:= length(s) ;for i:= 1 to (k div 2) do
if s[i]<>s[k-i+1] thenn:=1; if n=0 then Writeln('Перевёртыш') else Writeln('Не первёртыш'); readln(j); end.
т.е. для палитры из 65536 цветов требуется 16 бит памяти
это для ОДНОЙ точки на экране
1024 x 768 = 786432 (столько всего точек/пикселей)
теперь 768432 * 16 бит = 12582912 бит (объем для хранения всего изображения)
можно перевести из бит в килобайты
12582912 / 8 / 1024 = 1536 кБайт (или 1,5 МБайт)