Question

Напишите оператор присваивания, в результате выполнения которого целой переменной н присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа к ( например, если к= 28796, то н= 7).
p.s язык Паскаль:)

Answer 1

Var n,k:integer;
begin
readln(k);
n:=(k mod 1000) div 100;
writeln(n);
end.