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

Question

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

Answer 1

48

rewold

18 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: