Question

Напишите процедуру которая выводит на экран в столбик все цифры переданного ей числа начиная с первого. ПАСКАЛЬ.

Answer 1

Решение:

var a,b,c: integer ;

begin

writeln ('Введите число:');

read (a);

b:=0;

while a>0 do begin

b:=b*10;

b:=b + (a mod 10);

a:=a div 10;

end;

while b>0 do begin

c:=b mod 10;

b:=b div 10;

writeln (c, ' ');

end;

end.

Answer 2

Вот пример процедуры на языке Pascal, которая выводит все цифры переданного числа в столбик, начиная с первой:

pascalCopy code
program PrintDigits;
var
  num, digit: Integer;

procedure PrintDigitsInColumn(number: Integer);
begin
  while number > 0 do
  begin
    digit := number mod 10;
    writeln(digit);
    number := number div 10;
  end;
end;

begin
  // Введите число, цифры которого нужно вывести
  write('Введите число: ');
  readln(num);

  writeln('Цифры числа в столбике:');
  PrintDigitsInColumn(num);

  readln;
end.

Эта программа сначала запрашивает у пользователя ввод числа, а затем вызывает процедуру PrintDigitsInColumn, которая выводит цифры этого числа в столбик, начиная с первой.