Войти Регистрация Спроси ai-bota

Найти сумму чисел заданного натурального числа. блок схема, программа

Показать ответ

Ответ:

19729ром

06.07.2020 11:26

Var a,s:integer;
begin
readln(a);
while (a<>0) do begin
s+=a mod 10;
a:=a div 10;
end;
writeln(s);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

Fansik34324

31.03.2023 23:21

5. В кодировке UTF-16 каждый символ кодируется 16 битами. Влад написал текст (в нём нет лишних пробелов): «Мята, тыква, огурец, артишок, патиссон, картофель — овощи». Ученик...

aaannnaaa1

07.12.2020 13:28

Система команд исполнителя калькулятор , содержит две команды, которым присвоены номера: 1. умножить на 3 2. вычти 5 составьте алгоритм получения из числа 1 числа 7, содержащий...

Chehows

31.03.2022 04:43

Надо! pascalгольфист намеревался одним ударом отправить мяч из точки а в лунку, расположенную в точке в. однако удар получился слишком сильным. в итоге мяч вместо лунки оказался...

Фикус04

03.06.2021 22:25

1. описать понятие квадрат как класс. обеспечить скрытые поля для хранения координат его верхней левой и нижней правой реализовать метод для изменения координаты х правой нижней...

karuna4

22.03.2022 09:10

Задано число x. вычислите s: s = cos x - sin x + |x-7| + x2-1...

Dispasito

11.04.2022 00:50

Прочитай текст. выпиши словосочетания с согласованием. укажи части речи. прил сущ образец: замечательными мастерами (согл) полюбуйся натюрмортом художника и.и. машкова снедь...

garvarrd

11.04.2022 00:50

Доказать выбор буквы в слове беззащитный...

eruder

11.04.2022 00:50

Запишите три четыре предложения с существительными, имеющими безударное окончание -е или -и. объясните выбор написанием...

idrisovbulat

11.04.2022 00:50

Очем роман а. пушкина дубровский? вернее, о чем главы №3 и №6? почему дубровский поджег дом своего отца и отказался от мщения троекурову? с какой целью а.с пушкин ввел в повесть...

steeg99

20.05.2020 04:52

Прямолинейный отрезок алюминиевого провода радиусом r= 0,10 мм висит горизонтально в воздухе , удерживаемый магнитным полем земли, вектор индукции b которого горизонтален. определите...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку