pascalabcnet/InstallerSamples/!Tutorial/01_First/DivMod1.pas

8 lines
294 B
ObjectPascal
Raw Permalink Normal View History

2018-10-26 20:12:42 +03:00
// Операции div и mod
2015-05-14 22:35:07 +03:00
begin
var a := ReadInteger('Введите a:');
Println('Последняя цифра числа:', a mod 10);
Println('Число без последней цифры:', a div 10);
Println('Если число a чётно, то 0:', a mod 2);
2015-05-14 22:35:07 +03:00
end.