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

Найти сумму цифр четырехзначного числа через цикл с постусловием

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

Ответ:

Пожалуйста1531

21.07.2020 12:29

Var a,s:integer;
begin
readln (a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln (s);
end.

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

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

pomidorka334

02.11.2022 04:53

Напишите класс который принимает с клавиатуры целое положительное двузначное число затем следует построить новое значение составленное из цифр числа введенного с клавиатуры но...

Вадим98913

21.01.2023 15:17

Дана строка аб12сд134е5 .из неё нужно узнать кол-во чисел,которые больше 10 и вывести их.язык программирования: pascal...

Даниил5356

22.11.2021 00:46

Для хранения растрового изображения размером 128х128 пикселей отвели 16 кбайт памяти. каково максимально возможное число цветов в палитре изображения?...

dydina785312690

22.11.2021 00:46

Редактор получает на вход строку цифр и преобразовывает её. редактор может выполнять две команды, в обеих командах v и w обозначают цепочки цифр. заменить (v, w) эта команда заменяет...

Danaaad

16.12.2021 02:43

Составить таблицу умножения на число n (значение n вводится с клавиатуры; 1≤n≤9). дано натуральное число.определить какая из его цифр больше первая или последняя...

aslazer211124

16.12.2021 02:43

Дана строка аб12сд134е5 ,в ней нужно узнать количество чисел и вывести их....

Полина3333000999

07.10.2021 19:45

Есть 2dvd диска, 20000 файлов, каждый из которых равен 1мб. сколько файлов поместится на эти два dvd диска?...

ДимаБум

07.10.2021 19:45

Монитор позваляет на экране 65536 цветов. какой объём памяти требуется для кодироавания 1 пикселя?...

Людочка6789

16.09.2020 04:31

Напишите программу в pascal abc для первых n двузначных натуральных чисел вывести суммы цифр каждого числа...

dfhhu

16.09.2020 04:31

Дано уравнение: mm + n = nxx, в котором цифры заменены на буквы. разные буквы означают разные цифры, одинаковые буквы – одинаковые цифры. определи, чему будет равно значение выражения:...

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

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