Задача №43
Составить алгоритм нахождения суммы цифр числа
Program ciklp_6-
uses crt-
var i,n,k,s : longint-
b : integer-
begin
clrscr-
write(‘введите число — ‘)-readln(n)-
k:=1-
repeat
b:=trunc(n) mod 10-
s:=s+b-
n:=trunc(n)div 10-
k:=k+1-
until n<-1-
write(‘s=’,s)-
readln-
end.
Категория: Циклы |
Дата: 10.11.12
|