Войти Регистрация Спроси 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...

dydina785312690

22.11.2021 00:46

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

Полина3333000999

07.10.2021 19:45

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

Солнцеголовик

29.04.2023 05:18

Удрессировщика вольки есть волшебная палочка и один лев. за один взмах палочки количество львов или удваивается, или утраивается или увеличивается на 1. к концу представления на...

skskkslslw

15.06.2020 20:50

Какая рука у тебя сильнее: правая или лева.почему...

BlacYT

27.09.2020 03:09

Запишите в порядке возрастания следующие двоичные числа 10,10101,10100,11,10001...

Motiby19

27.09.2020 03:09

Дан масив из 12 целых чисел вывести исходный масив и получить новый элементы которого увеличены в 4 раза...

Dabby1

17.12.2020 03:26

Составьте таблицу умножения на число n. (цикл с параметром)...

мангл63

05.06.2023 16:32

Уточните, каков объем оперативной памяти компьютера (у меня 2 гб),к которому вы имеете доступ дома или в школе .сколько страниц текста можно разместить в памяти этого компьютера...

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

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