Вопрос пользователя:
Дано пятизначное число получить новое число трехзначное путем удаления единиц и сотен затем получить число обратное 3-ому. пример 12345..124…421
Илюха отвечает:
var
n:integer;
begin
readln(n);
n:= n div 10;
n:=(n div 100)*10 +n mod 10;
writeln(n);
n:= (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100;
writeln(n);
end.