Дано натуральное число N.Если число содержит 5 цифр,то получить новое число M,которое...

Question

Дано натуральное число N.Если число содержит 5 цифр,то получить новое число M,которое образуется путем исключения средней цифры исходного числа.Если количество цифр не 5,то M=N.

P.S - решить без использования строковой переменной.

Answer 1

Uses crt;
var n,m:integer;
begin
readln(n);
if n div 1000>=10 then
m:=(n div 10000)*1000+((n div 1000)mod 10)*100+((n div 10) mod 10)*10+(n mod 10)
else m:=n;
writeln(m);
end.