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

Question

Информатика

Аринка

14 января, 16:15

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

+2

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