1)
Формула: S := a*a*sqrt(3)/4;
2)
read(a);
b:=a*a;
a:=b*b*b;
3) if a mod 2=0 then writeln('chetnoye') else writeln('nechetnoye);
if a<0 then wtiteln('polozhitelnoye) else writeln('otrizatelnoe');
Диаграмма (тут надо написать еще что-нибудь , чтобы ответ засчитали)
Если надо найти палиндром,идущий за числом N. То вот программа:
Кодировка влияет на объём одного символа, например в кодировке КОИ-8 один символ весит 1 байт(8 бит), а в кодировке unicode - 2 байта(16 бит)