Question

Помогите пожалуйста! Совсем этого не понимаю. Нужно в программе кумир.
Задача:

Дано четырёхзначное число,найти сумму чисел этого числа.

 

 

Answer 1

Begin
X, y, a, b:integer;
Begin
Write(x,y,a,b)
I:=x+y+a+b
Read
End

Answer 2

А я сделала!

 

 

Var c,c1,c2,c3,c4 : integer;

Begin 

read(c);

c1:=(c div 1000);   {нашли первую цыфру}

c4:=(c mod 10);   {нашли вторую цыфру}

c3:=(c mod 100) div 10; {третья цыфра}

c2:=(((c mod 1000)div 100)mod 10); {ну и вторая цыфра}

write(c1,c2,c3,c4);

End.