13 lines
287 B
ObjectPascal
13 lines
287 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;
|
|
rec:= dec*10+one;
|
|
WriteLn ('À ýòî òîæå ÷èñëî - ',rec);
|
|
Write ('Enter');
|
|
ReadLn;
|
|
End. |