Представление натурального числа в виде суммы ряда относительно заданного натурального основания

@pasha199t · Регистрация: 28.08.2013

Author24 — интернет-сервис помощи студентам

Представление натурального числа в виде суммы ряда относительно заданного натурального основания?

@erl27 · 27.06.2014, 21:54

Может быть, вам это нужно:

Pascal

var
  a, r, N, S: integer;
  
begin
  write('Введите число: ');
  readln(N);
  write('Введите основание: ');
  readln(a);
  S := 0;
  write(N, ' = ');
  while N >= 1 do begin
    while N mod a = 0 do begin
      N := N div a;
      inc(S)
    end;
    r := N mod a;
    if r > 1 then begin
      write(r);
      if S > 0 then write('*');
    end
    else
      if S = 0 then write(r);
    if S > 0 then begin
      write(a);
      if S > 1 then begin
        write('^');
        write(S);
      end
    end;
    N := N - r;
    if N >= a then write(' + ')
  end;
  writeln
end.

Добавлено через 1 минуту
Только основание а должно быть простым числом

@pasha199t 0 / 0 / 0 Регистрация: 28.08.2013 Сообщений: 18
		1
	Представление натурального числа в виде суммы ряда относительно заданного натурального основания 27.06.2014, 19:50. Показов 1473. Ответов 1 Метки нет (Все метки) Представление натурального числа в виде суммы ряда относительно заданного натурального основания? 0

	27.06.2014, 21:54

Представление натурального числа в виде суммы ряда относительно заданного натурального основания

Решение