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

10 lines
310 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
var a: integer;
begin
2018-10-26 20:12:42 +03:00
Write('Введите a: ');
Readln(a);
Writeln('Последняя цифра числа: ',a mod 10);
Writeln('Число без последней цифры: ',a div 10);
Writeln('Если число a четно, то 0: ',a mod 2);
2015-05-14 22:35:07 +03:00
end.