Решение задач по теме "Действия с целыми числами в Pascal"
Решение задачи №13
program thirteen;
var
X:integer;
begin
write('Старое трехзначное число = ');
readln(X);
writeln('Новое число = ',X mod 100, X div 100);
end.
Решение задачи №13
program thirteen;
var
X:integer;
begin
write('Старое трехзначное число = ');
readln(X);
writeln('Новое число = ',X mod 100, X div 100);
end.