Составить алгоритм и написать программу на паскале нахождение разности цифр 4-х значного числа

Чтобы выделить каждую цифру разряда четырехзначного числа, мы, во-первых, вводим четыре переменных для того, чтобы в них были записаны разряды числа.

Так как из разряда тысяч мы будем вычитать разряд сотен, разряд десятков и разряд единиц, то порядок записи важен.

Во-вторых, нам нужно перевести число в строку с помощью функции str ().

Далее, по одному символу записываем разряды в переменные, снова переводим их в тип integer и вычитаем.

Записываем результат.

var a, b, c, d, num, i:integer;

q, w, e, r, strn:string;

begin

num:=9123;

Str (num, strn);

q:=strn[1];

w:=strn[2];

e:=strn[3];

r:=strn[4];

val (q, a, i);

val (w, b, i);

val (e, c, i);

val (r, d, i);

writeln (a-b-c-d);

end.