[kilds]

дано натуральное число n(n>99)опредилить число сотен в нам.

[PhoeniX]

В предыдущей своей теме ты дал хотя-бы какие-то собственные наработки. Почему же теперь мы должны делать за тебя всё с нуля? Показывай, что у тебя есть и где запутался.

[Bargest]

Код:

 c := (n div 100) mod 10

Вот число сотен в n.

[U.B.M.]

Сообщение от Bargest

Код:

 c := (n div 100) mod 10

Вот число сотен в n.

Вроде

Код:

 c := n div 100

откуда мод 10?

[@Rafa3L]

1 form, 2 edit, 1 button

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
im,nh,kl,gh:integer;
sd,vb:string;
begin
sd:=edit1.Text;
kl:=0;gh:=1;im:=length(sd);
for nh:=1 to im do if copy(sd,nh,gh)<>'' then kl:=kl+1;
edit2.Text:=copy(sd,1,kl-2);
end;

Рабочий код.

[Pyro]

надо заметить, что решение от @Rafa3L более точно вписывается в требования задачи тк работает только для натуральных чисел n > 99, в отличии от других решений, которые не учитывают этого.