Помощь - Поиск - Пользователи - Календарь
Полная версия: 2 ^ 100
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
yurganov
Здравствуйте! Нужно написать программу, считающую два в сотой степени... желательно, через массивы
volvo
Вот тут посмотри:
Задача на строки и числа.

(только сортировку убери из программы...)
yurganov
как то она не работает...
а вот еще: 239! посчитать
volvo
Цитата
как то она не работает...
Я ее только что проверил mad.gif Может, КАК-ТО она и не работает... Зато работает КАК НАДО... А факториал 239 теперь считай КАК ХОЧЕШЬ сам!
yurganov
ну прости =))
но у меня она не заработала.. я терь вот так сделал,, но она кучу ноликов спереди приписала

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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.