ввести 3-х значное число , вывести сумму его цифр ( паскаль)

Program summa_4isel;
Uses crt;
Var a,e,z,y,x:integer;
Begin
Writeln('Введите трехзначное число');
Readln(a);
x:=a div 100;
y:=(a-x*100) div 10;
z:=a-y*10-x*100;
e:=x+y+z;
writeln('Сумма чисел ',x,' ',y,' и ',z,' одинакова ',e,'.');
end.

В задачке переменными обозначены:
a-трехзначное число
e-сумма чисел
x, y и z - 1-ое, второе и третье число соответственно.

p.s. Uses crt; можно удалить. Но не желательно.

Egor Honkin 2019-04-19 19:01:24

А разъяснить можно пожалуйста , как ты находишь x,y,z

Галазин Санек 2019-04-19 19:10:52

смотри, оператор div- разделяет число, и выводит целую часть, округляя в наименьшую сторону, т.е. выводит целую часть.

Виталий Рассадинков 2019-04-19 19:14:01

к примеру, берем число 476 и разделяем на 100 (в паскале- 476 div 100). мы получим 4,76. Выделим целую часть-4. Это количество сотен.

Регина Барбатова 2019-04-19 19:21:15

например, берем число 476 и делим на 100 (в паскале- 476 div 100). мы получим 4,76. Выделим целую часть-4. Это количество сотен.Далее найдем 10-ки. из изначального числа вычтем сотки (a-x*100) и получившееся двухзначное число поделим на 10, тем самым выделим целую часть ( (a-x*100) div 10)Потом подобно поступим с единицами. Из изначального числа вычтем сотки (x*100) и затем десятки (y*10) и получим количество единиц. (z:=a-y*10-x*100).

Вован Зузов 2019-04-19 19:30:33

спасибо громадное . сейчас сообразила)

Лилия Климанчева 2019-04-19 19:35:09

незачто, если что по програмированию надобно посодействовать-обращайся)

Пашка Марио 2019-04-19 19:36:35

превосходно, спасибо)

О проекте

ввести 3-х значное число , вывести сумму его цифр ( паскаль)

Добро пожаловать!