Question

Дано натуральное число больше 9 если число цифр в числе нечетно то удалить его серединную цифру, например для числа 95246 должно получиться 9546. Нужно сделать в паскале.

Answer 1

var

 n, i: Integer;

 s: string;

begin

   Write ('Введите натуральное число, больше 9: ');

   ReadLn (n);

   if n <= 9 then begin

     Writeln ('Ошибка ввода!');

     Exit;

   end;

   s := IntToStr (n);

   if Length (s) mod 2 <> 0 then begin   // проверка на четность

     i := Length (s) div 2 + 1;   // вычисление позиции центральной цифры

     Delete (s, i, 1);   // удаление центральной цифры

     Writeln ('Результат: ' + s);

   end else

     Writeln ('Число цифр в числе четно.');

end;