10 lines
234 B
ObjectPascal
10 lines
234 B
ObjectPascal
// Îïåðàöèè div è mod
|
|
var a: integer;
|
|
|
|
begin
|
|
write('Ââåäèòå a: ');
|
|
readln(a);
|
|
writeln('Ïîñëåäíÿÿ öèôðà ÷èñëà: ',a mod 10);
|
|
writeln('×èñëî áåç ïîñëåäíåé öèôðû: ',a div 10);
|
|
writeln('Åñëè ÷èñëî a ÷åòíî, òî 0: ',a mod 2);
|
|
end. |