16 lines
402 B
ObjectPascal
16 lines
402 B
ObjectPascal
program div_mod;
|
|
var a,one,dec,hun,rec:integer;
|
|
begin
|
|
WriteLn ('Ââåäèòå ÷èñëî');
|
|
ReadLn (a);
|
|
one:=a mod 10;
|
|
WriteLn ('Öèôðà åäèíèö ÷èñëà - ',one);
|
|
dec:=(a div 10) mod 10;
|
|
WriteLn ('Öèôðà äåñÿòêîâ ÷èñëà - ', dec);
|
|
hun:= a div 100;
|
|
WriteLn ('Öèôðà ñîòåí ÷èñëà - ', hun);
|
|
rec:= hun*100+dec*10+one;
|
|
WriteLn ('À ýòî òîæå ÷èñëî - ',rec);
|
|
Write ('Enter');
|
|
ReadLn;
|
|
End. |