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

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

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

Question

Инура

6 марта, 06:08

+4

Ответы (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.