Ответы
Ответ дал:
0
Program al;
var i,s,n:integer;
f,g:text;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
s := 0;
while (n <> 0) do
begin
s := s + n mod 10;
n := n div 10;
end;
assign (g,'output.txt');
rewrite(g);
write(g,s);
close (f);
close(g);
end.
var i,s,n:integer;
f,g:text;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
s := 0;
while (n <> 0) do
begin
s := s + n mod 10;
n := n div 10;
end;
assign (g,'output.txt');
rewrite(g);
write(g,s);
close (f);
close(g);
end.
Вас заинтересует
11 месяцев назад
11 месяцев назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад