Написать программу, считающую сумму цифр целого - вопрос №1462913 от qwetdfgdsa 04.11.2021 16:33

Question

Информатика: Написать программу, считающую сумму цифр целого числа. программа должна быть написана в tp(turbo pascal)

qwetdfgdsa · Answer

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....