Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления, найти цифру, соответствующую разряду сотен в записи этого числа — Pascal(Паскаль)

Program Integer17;

var
  x, a: integer;

begin
  repeat
    writeln('Enter please number:');
    readln(x);
  until (x > 999);
  a := (x div 100) mod 10;
  writeln('Число сотен=', a)

end.

Похожие записи/страницы:

Leave a Comment

88 − = 84