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

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

program thirteen;
var
   X:integer;
begin
   write('Старое трехзначное число = ');
   readln(X);
   writeln('Новое число = ',X mod 100, X div 100);
end.

Назад