Вывести числа целого неотр. числа

[Gonzo]

"Составить программу, которая для вводимого целого неотрицательного N=Em Em-1…E2E1 выводит целые числа, десятичное представление которых EmEm-1…E1+1 E1E1-1…E1, где i=1, 2,…m. Использовать процедуру, которая по N и i вычислит числа N=EmEm-1…E1+1 и E1E1-1…E1"
-----------------
Может кто-нибудь объяснить задание? Или хотя бы написать как кто его понимает. Просто объяснить, программу напишу сам.

[p51x]

div, mod, +1 -1 вот и все мысли...

[Gonzo]

p51x, не понял Вас.
Я думаю может, напр. для N=6, m=3 числа будут 1, 2, 3 ? Или как?

[p51x]

Gonzo,вы как-то неправильно поняли задание... Вводится только N (m не вводится) и потом с разрядами делатся необходимые операции. Например, N=1234 -> m=4, е_4=1, е_3=2, е_2=3, е_1=4

П.С Формулы набирайте в TeX или картинкой, а то не совсем понятно...

[silent_1991]

По-моему, вы что-то напутали с заданием, потому как там написано i=1,2,...,m, но i больше нигде не фигурирует. Исправьте.

[Gonzo]

В том-то и проблема, что задание привел дословно.

[p51x]

Лучше сфоткайте (отсканьте) и выложите картинкой.

[Stilet]

В том-то и проблема, что задание привел дословно.

Э-э-э я вот например не понял что это за E в задании...
приведи пример ряда, и что из него должно получится...

[p51x]

что это за E в задании

Это разряды в десятичной записи числа...

[Gonzo]

Не знаю правильно ли понял задание (прицепил скрин к посту)...
но вот что наваял:

uses crt;
const Count=15;
var N,m,k:integer;
    e:array[1..Count] of ^byte;

function Segm(Chislo:integer):byte;
var i:byte;
begin
 Chislo:=Abs(Chislo);
 i:=0;
 while (Chislo>=10) and (i<256) do
  begin
   inc(i);
   new(e[i]);
   e[i]^:=Chislo mod 10;
   Chislo:=Trunc(Chislo/10);
  end;
 inc(i);
 new(e[i]);
 e[i]^:=Chislo mod 10;
 Segm:=i;
end;

begin
 ClrScr;
 write('N->');
 readln(N);
 m:=Segm(N);
 writeln('m=',m);
 for k:=1 to m do
  begin
   writeln('E[',k,']=',e[k]^);
   Dispose(e[k]);
  end;
 readkey;
end.