Дано натуральное число n (n>9). Нужно найти число сотен в нем.(паскаль)

1

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

Лучший Ответ!
2014-04-06T00:36:42+00:00
Var    n :integer;
begin
    Write('ведите число n: '); 
   readln(n);
   writeln('число сотен в ',n,' = ',(n mod 1000)div 100) ;
   end.
если что непонятно - пиши, объясню
спасибо