Помогите пожалуйста! Совсем этого не понимаю. Нужно в программе кумир.Задача: Дано четырёхзначное число,найти сумму чисел этого числа.
Помогите пожалуйста! Совсем этого не понимаю. Нужно в программе кумир.
Задача: Дано четырёхзначное число,найти сумму чисел этого числа.
Гость
Ответ(ы) на вопрос:
ГостьBegin
X, y, a, b:integer;
Begin
Write(x,y,a,b)
I:=x+y+a+b
Read
End
ГостьА я сделала! 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.
Не нашли ответ?
Похожие вопросы