Напишите программу, которая подсчитывает сумму цифр заданного числа (На языке Pascal).

Ответы:

1

2 program sd,

3 uses crt,

4 var s : string,

5 i,k,code,sum : integer,

6 Begin

7 sum:=0,

8 writeln ( s : ), readln (s),

9

10 for i:=1 to length(s) do

11 begin

12                val(s[i],k,code),

13 if code=0 then sum:=sum+k,

14 end,

15

16 if sum=0 then writeln(В строке нет цифр)

17 else

18 writeln(Summa= ,sum), 

19 End.

20