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

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

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

Question

Информатика

Ревмира

20 апреля, 23:11

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

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

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

+3

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

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

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

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

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