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

TestSamples/CompilationSamples/DivMod1.pas

10 строк234 B

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

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

// �������� 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.