Убрать вторую цифру из числа

[I3ECJI0]

Дано натуральное число. Удалить вторую цифру натурального числа.
[пример 13876 => 1876]

[Noor]

Delete(str,2,1);

полный пример

var
str:string;
begin
str:='13876';
Delete(str,2,1);
ShowMessage(str);
end;

Описание функции Delete

[I3ECJI0]

решение нужно в паскале

[Noor]

Направление вам дано, "копайте" и делайте под себя

решение нужно в паскале

Этот код чудесно работает на паскале

var
str:string;
begin
str:='13876';
Delete(str,2,1);
write(str);
end.

[I3ECJI0]

а через while можно как нибудь?

[Noor]

Не поленитесь и сделайте сами хоть немного !

[Петррр]

program prog1;
uses
    crt;
var
   num: integer;
   function delete_num(num: integer): integer;
   var
      b: integer;
      res: integer;
   begin
        b := 1;
        res := 0;
        while (num > 100) do
        begin
             res := res + (num mod 10) * b;
             b := b * 10;
             num := num div 10;
        end;
        res := res + (num div 10) * b;
        delete_num := res;
   end;

begin
     clrscr;
     writeln(delete_num(13876));
     readkey;
end.