Меню сайта

Задача №26

Составить алгоритм нахождения суммы цифр числа


Program cikl_6-

uses crt-

var i,n,k,s : longint-

b : integer-

begin

clrscr-

write(‘введите число — ‘)-

readln(n)-

k:=1-

while n&gt-=1 do

begin

b:=trunc(n) mod 10-

s:=s+b-

n:=trunc(n) div 10-

k:=k+1-

end-

write(‘s=’,s)-

readln-

end.

Категория: Циклы | Дата: 16.11.12

Меню раздела
Блок