Pascal.
Дано десятизначное число. Найти сумму его цифр (с помощью цикла for).

Спасибо, вновь меня выручаешь:)

рад помочь

var a,b,c,e:longint;beginwriteln('введите число');readln(a);for b:=a downto 0 do beginc:= a mod 10;a:=a div 10;e:=e+c;end;writeln('сумма цифр числа => ',e);end.