128 символдық алфавиті бар үндістер тайпасының 30əріптен тұратын хатын шабарман көрші тайпаға жеткізді.Ол қандай ақпарат көлемін жеткізді​

Решение с использование длинной арифметики.
var
  i, j, n, len, rem: integer;
  a: array[1..200] of byte;
begin
  write('Введите число: ');
  read(n);
  len := 1;
  a[1] := 1;
  for i := n + 1 to 99 {100} do
  begin
    for j := 1 to len do
    begin
      rem := a[j] * i + rem;
      a[j] := rem mod 10;
      rem := rem div 10;
    end;
    while rem > 0 do
    begin
      inc(len);
      a[len] := rem mod 10;
      rem := rem div 10;
    end;
  end;
  writeln('Произведение чисел из интервала (', n, '; 100): ');
  for i := len downto 1 do write(a[i]);
end.
Пример работы программы:
Введите число: 1
Произведение чисел из интервала (1; 100):
1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000

begin

writeln('1: ',(sqrt(10)+1)/(6.25-1.8*1.8));

writeln('2: ',sin(5)/cos(5)*10*sqrt(19));

writeln('3: ',100*sin(4));

writeln('4: ',sin(cos(1))/0.25);

writeln('5: ',exp(sin(3))*ln(2));

writeln('6: ',sqrt(sqrt(5)+sqrt(6)));

writeln('7: ',(sqrt(3)+2*sqrt(2))/sqrt(sqrt(5)));

writeln('8: ',(exp(sin(3))*ln(2)+exp(sin(2))*ln(2))/(exp(2.4)*ln(4)+1));

end.

Результат:

1: 1.38281649839481

2: -147.353232893516

3: -75.6802495307928

4: 2.0575810340942

5: 0.798202533367663

6: 2.16461491269994

7: 3.04977540329462

8: 0.0980510445730408

Подробнее - на -

Объяснение: