.к. каждый символ может иметь 64 значения, то есть <span> , то на каждый символ выделяется 6 бит(от 0 до 63, всего 64 варианта).Всего символов - 100. Значит всего нужно 6*100=600бит=75байт</span>
Var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.
var n,a,i,max:integer;
begin
readln(n);
max:=0;
for i:=1 to n do
begin
read(a);
if (a mod 10=2)and(a>max) then max:=a;
end;
writeln(max);
end.
Пример:
17 20 12 41 15 5 52 10
52