Pascal Десятки и единицы

[#Azamat]

Показано использование операций целочисленного деления и взятия остатка от деления. В практике программистов понимание сути этих действий требуется довольно часто.

Program DES-ED;
Var
K, Des, Ed : Integer;
Begin
Write('Введи десятичное число '); Readln(K);
Des:= K DIV 10;
Ed:= K MOD 10;
Writeln('Количество десятков в числе =', Des);
Writeln('Количество единиц в числе =', Ed);
Readln;
End

Автор: Неизвестен