Ввести целое число и найти сумму его цифр
ritapechyonkina77
3
19.05.2019 17:44
1
Другие вопросы по теме Информатика
ratmir10
10.02.2021 08:26
dimevdokim
22.09.2019 20:41
baget97ozu06u
06.05.2020 09:27
костелои
13.12.2019 11:41
Елена5763
29.11.2020 17:04
taske047Ataske
29.11.2020 17:04
Популярные вопросы
- Написать слова фразиологизма и их значения...
3 - Назовите 2 3 представителей простейщих обитающи в морской среде какую роль...
1 - Выбери правильный ответ и подчеркни его. 1. his/her name is bob. 2.bob and...
2 - Почему при расчетах можно считать луну материальной точкой...
3 - Нужно составить предложения по языку за 6 класс! а вот и : verbimge die...
3 - Найдите ежели, вассал , длань, очи, хоромы...
3 - Закончите уравнения реакции, расставьте коэффициенты методом электронного...
2 - Римские цифры легко изобразить, используя палочки или спички.ниже изображено...
1 - Масса одного станка 8 целых 3/4 т. а другого - на 2 целых 1/2 т. меньше....
1 - Стих про хлеб быстро на кахском языке...
1
program raf105;
var abc,a,sum: integer;
begin
write('Введите число: ');
readln(abc);
repeat
a:= abc mod 10;
sum:= sum+a;
abc:= abc div 10;
until a=0;
writeln('Сумма цифр: ',sum);
end.
PascalABC 3.4.2