Var S,n,A:integer;
Begin
Write('n = ');ReadLn(n);
For n:= 10 to n+9 do
Begin
A:=n;
S:=0;
While A > 0 do
Begin
S:=S+A mod 10;
A:= A div 10
End;
WriteLn('Сумма цифр ',n,' равна: ',S)
End;
End.
Letter.txt,письмо.doc,роза.bmp,crop12.exe
<span>Малая цифровая вычислительная машина.
ЭВМ</span>