Задано пятизначное число.Найдите цифры и сумму цифр пятизначного числа. (Программа **...

Question

Задано пятизначное число.Найдите цифры и сумму цифр пятизначного числа. (Программа на Паскале) div и mod

Answer 1

// - комментарии, можешь не писать, это пояснение для тебя

var z,a,b,c,d,e,f: integer;
begin
Write('Введите пятизначное число'); read(z);
a:=a div 10000;                      // число десятков тысяч
b:=a mod 10000 div 1000;     // число тысяч 
c:=a mod 1000 div 100;         // число сотен
d:=a mod 100 div 10;             // число десятков 
e:=a mod 10;                         // число единиц
f:=a+b+c+d+e;                      // сумма цифр
Writeln('Цифры: ', a,b,c,d,e);
Write('Сумма цифр: ',f);
end.