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

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

1

Ответы и объяснения

2013-11-21T18:12:39+04:00
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.