13 lines
267 B
ObjectPascal
13 lines
267 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. |