Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] разложить число на полином.

Автор: Всемогущий 14.12.2007, 14:24

123=3*10^0+2*10^1+1*10^3

хотелось бы получить одномерный массив
выделенных чисел

Автор: kemiisto 15.12.2007, 21:25

Код


program z;
var
  number: longint;
  digit: array[0..9] of byte;
  i, n: byte;
begin
  write('Введите число: ');
  readln(number);

  n := 0;
  while number <> 0 do
  begin
    digit[n] := number mod 10;
    number := number div 10;
    inc(n);
  end;

  for i := n - 1 downto 0 do
    if i <> 0 then
      write(digit[i], '*10^', i, ' + ')
    else
      writeln(digit[i], '*10^', i);
  readln;
end.