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

Question

Информатика

Христиана

30 ноября, 10:25

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

+2

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