Не могу составить программу, уже весь мозг перевернул, помогите через Pascal

Присвоить целой переменной d четвертую от конца цифру в записи

положительного целого числа x (например, если x=34517, то d=4)

Question

Аверьян

31 декабря, 11:38

+2

Ответы (1)

Знаете ответ на вопрос?

Гелюся · Answer 1

Program Project;

uses

crt;

var

x, d: integer;

begin

clrscr;

write ('x=') ;

readln (x) ;

d: = (x div 1000) mod 10;

writeln ('d=', d) ;

end.