10 lines
234 B
ObjectPascal
10 lines
234 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> div <20> mod
|
|||
|
|
var a: integer;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
write('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> a: ');
|
|||
|
|
readln(a);
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: ',a mod 10);
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD>: ',a div 10);
|
|||
|
|
writeln('<27><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> a <20><><EFBFBD><EFBFBD><EFBFBD>, <20><> 0: ',a mod 2);
|
|||
|
|
end.
|