Версия для печати темы

Автор: yurganov 22.10.2007 23:51

Здравствуйте! Нужно написать программу, считающую два в сотой степени... желательно, через массивы

Автор: volvo 23.10.2007 0:05

Вот тут посмотри:
http://forum.pascal.net.ru/index.php?s=&showtopic=16162&view=findpost&p=94704

(только сортировку убери из программы...)

Автор: yurganov 23.10.2007 0:25

как то она не работает...
а вот еще: 239! посчитать

Автор: volvo 23.10.2007 0:40

Я ее только что проверил Может, КАК-ТО она и не работает... Зато работает КАК НАДО... А факториал 239 теперь считай КАК ХОЧЕШЬ сам!

Автор: yurganov 23.10.2007 0:42

ну прости =))
но у меня она не заработала.. я терь вот так сделал,, но она кучу ноликов спереди приписала

var
  a : array [1..100] of byte;
  i,j : integer;
begin
  for i := Low(a) to High(a) do
    a[i] := 0;
  a[1] := 2;
  for i := 1 to 99 do
    for j := 99 downto low(a) do begin
      a[j] := a[j] * 2;
      if a[j]>=10 then begin
        inc( a[j+1]);
        a[j] := a[j] mod 10;
      end;
    end;
  for i := 100 downto 0 do
      write(a[i]);
  readln;
end.