Question

дано 5 значное число ( не integer, а longint). Вывести его цифры в столбик.​ Помогите!

Answer 1

Ответ:

var number, numeral, divider:longint;

begin

   numeral:=0;

   divider:=10000;

 

  //read number

  readln(number);

 

  //Decompose number

  while (number > 0) do

  begin

     

      numeral:=number div divider;

      writeln(numeral);

      number:=number mod divider;

     

      divider:=divider div 10;

     

  end;

end.

Объяснение:

Заводим переменные, присваеваем значения, читаем число, разбираем и печатаем число с начала до конца.