Дано шестизначное число. Найти сумму его цифр. Величины для хранения

всех шести цифр числа не использовать.

Сделать программу в паскале

Question

Информатика

Панкратий

31 октября, 18:41

Дано шестизначное число. Найти сумму его цифр. Величины для хранения

всех шести цифр числа не использовать.

Сделать программу в паскале

+1

Ответы (1)

Знаете ответ?

Ванда · Answer 1

Var a, s:integer;

begin

readln (a) ;

s:=0;

while a>0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

writeln ('s = ', s) ;

end.

Пример:

123456

s = 21

Дано шестизначное число. Найти сумму его цифр. Величины для хранениявсех шести цифр числа не использовать.Сделать программу в паскале

Дано шестизначное число. Найти сумму его цифр. Величины для хранения

всех шести цифр числа не использовать.

Сделать программу в паскале