пожалуйста с процедурой,выводящей все цифры числа в столбик

@Birdman · Регистрация: 18.05.2014

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

Pascal

var n:integer;
 
 Procedure Chislo(n: integer);
 
 
 const
 f=4;
 
 Var a:array[1..f] of integer; 
 Var b:array[1..f] of integer; 
 i:integer;
 begin
 if n div 10=0 then writeln(n mod 10) else
i:=1 ;begin 
repeat
 a[i]:= n mod 10;
 B[1]:=A[i];
 n:=n div 10;
 i:=i+1
 until i=f;
 end;
 
 writeln( B[i]);end;
 
 begin
writeln('Введите n');
readln(n); 
Chislo(n);
end.

Помогите пожалуйста!
Нужно вывести по порядку все цифры числа(любого) в столбик.Можно без массива,я просто не придумал ничего лучше(

@FedorBoom · 19.05.2014, 03:09

Pascal

var a: longint;
 
procedure digits(x: longint);
var s: longint; i:integer;
 begin
  s:=0;
  while x>0 do begin
    i:=x mod 10;
    s:=s*10+i;
    x:=x div 10;
   end;
  while s>0 do begin
    i:=s mod 10;
    writeln(i);
    s:=s div 10;
   end;
 end;
 
 begin
  read(a);
  digits(a);
 end.

@APALoff · 19.05.2014, 09:31

Вывести на экран в столбик все цифры переданного ей числа, начиная с первой. Процедуры

@Birdman · 19.05.2014, 19:18 **[ТС]**

Спасибо большое! Разобрался )

пожалуйста с процедурой,выводящей все цифры числа в столбик

Решение

Решение

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	19.05.2014, 09:31	3
	Сообщение было отмечено Birdman как решение Решение Вывести на экран в столбик все цифры переданного ей числа, начиная с первой. Процедуры 0

@Birdman 0 / 0 / 0 Регистрация: 18.05.2014 Сообщений: 5
	19.05.2014, 19:18 [ТС]	4
	Спасибо большое! Разобрался ) 0

Опции темы