n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/DivMod2.pas

13 строк267 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// �������� div � mod
var a: integer := 247;

begin 
  write('����� ����� � �������� �������: ');
  // ������� ��������� �����
  write(a mod 10,' ');
  // ����������� ��������� �����
  a := a div 10;
  write(a mod 10,' ');
  a := a div 10;
  write(a mod 10,' ');
end.