Pascal.

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

Question

Информатика

Настуня

7 сентября, 04:37

Pascal.

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

+1

Ответы (1)

Знаете ответ на вопрос?

Добрыня · 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.

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

Pascal.

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