13 lines
348 B
ObjectPascal
13 lines
348 B
ObjectPascal
// Операции div и mod
|
|
var a: integer := 247;
|
|
|
|
begin
|
|
write('Цифры числа в обратном порядке: ');
|
|
// Выводим последнюю цифру
|
|
write(a mod 10,' ');
|
|
// Отбрасываем последнюю цифру
|
|
a := a div 10;
|
|
write(a mod 10,' ');
|
|
a := a div 10;
|
|
write(a mod 10,' ');
|
|
end. |