Определите сумму цифр числа паскаль

Question

Определите сумму цифр числа паскаль

Comments

1+2+3+4....n так ?

---

да

Answer 1

Uses crt;
Var i,n,sm:integer;
Begin
Clrscr;
Writeln('Введите число N: ');
Readln(n);
For i:=1 to n do
Sm:=sm+i;
Writeln('Сумма цифр числа ',n,' равно ',sm);
Readkey;
End.

Comments

Спасибо огромное!!!