Решение задач по теме "Действия с целыми числами в Pascal"

Решение задачи №6

program six;

var
   a:integer;
begin
     write('A = ');
     read(a);
     writeln('Десятки = ', a div 10);
     writeln('Единицы = ', a mod 10);
end.

Назад