Написать программу, считающую сумму цифр целого числа

Задание:

Написать программу, считающую сумму цифр целого числа. Программа должна быть написана в TP (TurboPascal)

Решение:

program z1; var S,n: integer; beginwriteln ('Введите число'); readln (n); while n>0 do begin S: =S+n mod 10; n: =n div 10; end; writeln ('S=',S); end.

Знаете другой ответ?

Отправить свой ответ