Pascal.

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

Question

Информатика

Дросида

20 августа, 20:57

Pascal.

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

+5

Ответы (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).