Ответы
Ответ дал:
0
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.
Begin
Readln(n);
s:=0;
While n>0 do
Begin
s:=s+(n mod 10);
n:=n div 10;
end;
Writeln(s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
9 лет назад