Var a:integer;S,p:real;beginWrite('Введите a сторону треугольника'); Readln(a);P:=3*a; Writeln('Периметр=',P);S:=(sqr(a)*sqrt(3))/4; Writeln('Площадь', S);Readln;end.
100 байт 256= 2 в восьмой степени - восемь бит для кодировки одной точки умножаем количество точек на количество бит 10*10*8 = 800 В одном байте 8 бит, следовательно 100 байт