Question

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

Answer 1

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

Answer 2

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

Answer 3

рад помочь