Обработка массива с использование операторов цикла с условием

[MikaNika]

Помогите, пожалуйста, с задачами по теме "обработка массива с использование операторов цикла с условием":
1. Получить последовательность десятичных цифр числа 2 в 100 степени
2. Дано натуральное число n. Определить количество различных цифр в нём.
3. Получить последовательность десятичных цифр числа 100!

[TinMan]

МикаНика (классный ник, похоже на механику)), вот тебе простейший минимальный набор для работы с длинными числами. Тут реализовано по сути только сложение. Умножение на обычное целое производится посредством сложения - то есть, очень нерационально, но для твоей задачи этого вполне достаточно.

Решены две задачи из твоих трех. №2 попробуй сделать сама. Если не получится, а так же если есть вопросы - спрашивай, я постараюсь ответить.
Успехов тебе, МехаНика )).

const
  m= 1000;  // max num length
  base= 10; // the numeration base

type
  tNum= array[0..m-1] of byte;


function SumNumNum(a,b: tNum; var c: tNum): boolean;
var
  i,d: integer;
begin
  d:= 0;
  for i:=0 to m-1 do begin
    d:= a[i]+b[i]+d;
    c[i]:= d mod base;
    d:= d div base
  end;
  SumNumNum:= d=0
end;


function ProductNumInt(a: tNum; b: longint; var c: tNum): boolean;
begin
  FillChar(c,SizeOf(c),0);
  while (b>0) and SumNumNum(c,a,c) do dec(b);
  ProductNumInt:= b=0
end;


procedure ShowNum(a: tNum);
var
  i: integer;
begin
  i:= m-1;
  while (a[i]=0) and (i>0) do dec(i);
  for i:=i downto 0 do write(a[i])
end;

var
  a: tNum;
  i,n: integer;

begin
  n:= 100;
  FillChar(a,SizeOf(a),0);
  a[0]:= 1;
  for i:=1 to n do ProductNumInt(a,2,a);
  write('2^',n,' = ');
  ShowNum(a);
  writeln;

  writeln;
  FillChar(a,SizeOf(a),0);
  a[0]:= 1;
  for i:=2 to n do ProductNumInt(a,i,a);
  write(n,'! = ');
  ShowNum(a);
  writeln;
  readln
end.