Question

Здравствуйте! Как написать программу в Pascal в строчку, которая выводит разряды числа 12321? Спасибо)

Answer 1

Ответ:

program Example2;

var

 a, i: Integer;

begin

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

 ReadLn (a);

 WriteLn;

 Write ('Разряды числа: ');

 while a > 0 do begin

   Write (a mod 10, ' ');

   a := a div 10;

 end;

 ReadLn;

end.

Объяснение:

mod -  выделяем последнюю цифру

div - отбрасываем последнюю цифру

Answer 2

Привет! Вот пример программы на Pascal, которая выводит разряды числа 12321:

pascalCopy code
program DisplayDigits;

var
  number, digit: Integer;

begin
  number := 12321;

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

Эта программа использует операции деления нацело (div) и взятия остатка (mod) для извлечения разрядов числа. В каждой итерации цикла while программа берет последнюю цифру числа с помощью операции number mod 10, выводит ее и затем удаляет эту цифру из числа с помощью операции number div 10. Цикл продолжается до тех пор, пока число не станет равным 0. Каждая цифра выводится на новой строке с помощью процедуры writeln.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.