Program Frank;
const n=20;
TYPE mas=array[1..n] of integer;
var a:mas;i:integer;
begin
for i:=1 to n do begin
a[i]:=sqr(i);
write(' ',a[i]);
end;
end.
Число 123, так как оно больше 10 и нечетное.
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');
<em>uses crt;</em>
<em>var a, b, c, n, i, j :integer; </em>
<em>s :array [1..10000] of integer;</em>
<em>begin</em>
<em> clrscr;</em>
<em> writeln ('Vvedite razmer masiva');</em>
<em> read (n);</em>
<em> writeln ('Vvedite chislo X');</em>
<em> read (a);</em>
<em> for i:=1 to n do </em>
<em> begin </em>
<em> writeln ('Vvedit s[', i, '] element'); </em>
<em> read (s[i]); </em>
<em> end;</em>
<em> for i:=1 to n do </em>
<em> for j:=1 to n-1 do </em>
<em> if s[j]<s[j+1] then </em>
<em> begin </em>
<em> b:=s[j]; </em>
<em> s[j]:=s[j+1]; </em>
<em> s[j+1]:=b; </em>
<em> end;</em>
<em> for i:=1 to n do </em>
<em> begin </em>
<em> write (s[i], ' '); </em>
<em> if s[i]=a then inc (c); </em>
<em> end;</em>
<em>writeln;</em>
<em>if c>0 then writeln ('3adanoe chislo prisytstvyet') else writeln('3adanoe chislo otsytstvyet');</em>
<em>end.</em>
<span>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>
Unicode - 16-битная кодировка, значит, в 80 символах содержится 16x80=1280 бит информации, или 160 байт.