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

Question

Информатика

Агриппина

24 июня, 16:24

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

+1

Ответы (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.