Паскаль ABC:
Const
N = 7;
Var
A:array[0..N] of real;
i:integer;
Begin
WriteLn('N = ',7);
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
ABC.net:
Var
A:array of real;
N,i:integer;
Begin
Write('N = ');ReadLn(N);
A:=new real[N];
For i:= 0 to N-1 do
Begin
A[i]:=power(2,i);
WriteLn('2^',i,' = ',A[i])
End;
End.
//FPC 2.6.4
Program sieve_of_Eratosthenes;
var
n, i, x:integer;
a: array[1..32000] of boolean;
begin
readln(n);
for i:=2 to (n+1) div 2 do
begin
x:=i*2;
while x<=n do
begin
a[x]:=true;
x:=x+i;
end;
x:=0;
end;
for i:=1 to n do if not a[i] then write(i,' ');
readln;
end.
N=2^i
N - мощность алфавита, i - количество знаков в двоичном коде