С клавиатуры вводится целое положительное (может быть равно 0) число B, не превышающее 30 000. Напиши программу, которая считает и выводит на экран сумму цифр числа B. (для паскаля)
хитрыйкот
1
15.04.2020 07:18
1
Другие вопросы по теме Информатика
katyunyagolubmailru
08.07.2019 18:40
TimRus162rusg
24.11.2020 09:17
edelbi9512
24.11.2020 09:18
Кама29102007
24.11.2020 09:18
dariadariadaria2
24.11.2020 09:18
AlinaRaytman
24.11.2020 09:18
kristinka078
24.11.2020 09:18
mayte
24.11.2020 09:19
snizhanadob
24.11.2020 09:19
Популярные вопросы
- Что сближало ампир и акодимическое искувство...
2 - Составь знаки между цифрами так, чтобы получилось верное равенство. 1 2 3 4=37...
2 - Составьте предложения со словосочетаниями; сравнить с солнцем,сравнять с землей....
3 - 1)запиши все трехзначные числа,у которых цифра сотен на 2 меньше,чем цифра десятков,а...
1 - При нагревании куска бронзы массой 4кг на 2градуса израсходовано 3040 дж энергии...
2 - 4. процесс расщепления и переваривания пищи у одноклеточных (амебы) происходит...
1 - Какое слово является многозначным кручина кожа мгновение табурет...
1 - Когда ставят знак препинания и когда не ставят при однородных членах предложения...
1 - Запиши слова к каждой модели поставить ударение.ноги,годы,горы,вода,река,море,,жара,заря,коты,лапа,нора,сады,поля,дома...
3 - Легче всего присоединить электроны атомов? 1) серы 2) хлора 3)селена4)брома...
3
var B, s: integer;
begin
write('Введите целое число B: ');
read(B);
s := 0;
while B > 0 do
begin
s := s + B mod 10;
B := B div 10;
end;
writeln('Сумма цифр числа равна ',s);
end.