Ввести целое число и найти сумму его цифр(1234) паскаль
together43
3
18.05.2019 18:50
1
Другие вопросы по теме Информатика
Turbik327
19.06.2019 18:50
nikusachev01
19.06.2019 17:50
miroslav1234
06.08.2019 02:00
GETRRRR
06.08.2019 01:50
mskobetsnata
06.08.2019 01:50
deniskin278
12.09.2019 18:10
Dima98891
12.09.2019 18:00
Даша333555
12.09.2019 18:00
qqruzko
21.02.2021 15:47
Популярные вопросы
- Найдите наименьшее значение функции. у=х2-8х+7...
3 - Какие различия есть в составе бактериальной и растительной клетки?...
1 - Скорость катера в стоячей воде 15.3 км/ч , а скорость течения реки 1.5 км/ч. катер...
1 - Длина участка 5.82 ширина составляет 3\4 длины . найди площадь и периметор участка...
2 - Просклонять словосочетание чудесная картина...
3 - Какая часть речи у слова (с тех пор, всю, свою, тянул, сперва, потом, где)...
3 - Перевести числа из двоичной в десятичную систему счисления: 1111; 100; 1001; 101...
1 - Кислород самый распространенный элимент земной коры в каком из перечисленных соединений...
1 - Выражение. а) 24 + m - 36 б) x - 10 - 2 в) а - 1 + 1 г) 12 - b - 3 д) - 8 - 12 +...
2 - Как называется животное кенгуру и все его части на анлииском...
3
begin readln(i); s:=0; repeat s:=i mod 10 + s; i:=i div 10 until i=0; writeln(s); readln end.
var
a, Summ:integer;
begin
write('Введите число ');
readln(a);
Summ := 0;
while a > 0 do
begin
Summ := Summ + a mod 10;
a := a div 10;
end;
writeln('Сумма цифр равна ', Summ);
end.