Lazarus(delphi):
type
d=record
m1, d1, y1: integer;
end;
var s: string; d1: TDateTime;
begin
s:=edit1.text; (read(s));
d1:=strtoDate(s);
DecodeDate(d1, d[y1], d[m1], d[d1]);
end;
1) 32*1024 =2^5 * 2^10 = 2^15
2) 28 Кбайт =28 *2^13 бит =7*2^15 бит
3) 7*2^15 : 2^15 = 7 бит
4) 2^7 = 128 - максимальное количество цветов в палитр
Этот значок обозначает возведение в степень