Найти сумму цифр числа
Найти сумму цифр числа
Решение:
Program 4islp;
var n:integer;
function summa(chislo:integer):integer;
var s:integer;
begin
s:=0;
while (chislo > 0) do
begin
s:=s + (chislo mod 10);
chislo:=chislo
div 10
end;
summa:=s
end;
BEGIN
write('vvedite chislo: ');readln(n);
write('Сумма цифр числа=',summa(n));
readln
END.
|
| Категория: Простые задачи | Добавил: deespe (30.01.2011)
|
| Просмотров: 2623
| Рейтинг: 0.0/0 |
|
