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

Question

Информатика

Санюта

1 июня, 10:09

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

+5

Ответы (1)

Знаете ответ на вопрос?

Генрих · 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.