Информатика, опубликовано 2018-08-22 23:36:35 by Гость

Составить программу, сумма цифр пятизначного числа

Ответ оставил Гость

Var n,s : Integer;
Begin
Readln(n);
s:=0;
While n>0 do
Begin
s:=s+(n mod 10);
n:=n div 10;
end;
Writeln(s);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.