Ответы
Ответ дал:
0
//Pascal ABC.NET v3.1 сборка 1172
Var
n,c,s:integer;
begin
read(n);
while n<>0 do
begin
c:=n mod 10;
s:=s+c;
n:=n div 10;
end;
writeln(s);
end.
Пример ввода:
123
Пример вывода:
6
Var
n,c,s:integer;
begin
read(n);
while n<>0 do
begin
c:=n mod 10;
s:=s+c;
n:=n div 10;
end;
writeln(s);
end.
Пример ввода:
123
Пример вывода:
6
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад