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

Question

Информатика

Феосовия

17 ноября, 12:20

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

+5

Ответы (1)

Знаете ответ?

Стюра · Answer 1

program z1;

var S, n:integer;

begin

writeln ('Введите число') ;

readln (n) ;

while n>0 do begin

S:=S+n mod 10;

n:=n div 10;

end;

writeln ('S=', S) ;

end.