Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Хелппппппппппппппппппппппппппппппппппппп

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

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.