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

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

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

Ответ:

ученикпро1

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 оценок)

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

lina00p0cjtl

23.04.2020 09:45

Для высказывания не(х больше или равен 9) и (х четное) найдите максимально возможно значение х....

naxim23432

12.01.2022 18:41

3. Рассмотрите текст. 1 Грибы: Сьедобные Рыжики Грузди Шампиньоны Опята Волнушки Маслята Белые Подосиновики Несъедобные Мухомор Поганка Ложные опята 2 Районы города:...

ivanzalivnoi

24.03.2022 11:30

Нарисуйте таблицу истинности к данному высказыванию, не(А или В ), здесь отрицание будет последним действием, всего действий два....

Rav1112

06.10.2020 09:18

РЕБЯТА На бесконечном поле имеются две перпендикулярные друг другустены, расположенные в виде буквы «Т», длины стен неизвестны.Робот находится в клетке, расположенной...

Sowa2006

29.08.2021 14:47

Схема алгоритма. собрать гербарий , 3й класс информатика ....

Исма124

05.03.2020 21:45

Запишите на языке паскаль программу реализующую алгоритм работы кассира покупателю сдачу (s) наименьшим возможным кол-во банкнот по 500(k500),100(k100),50(k50) и 10(k10)...

Elkhadi54Skorpion

04.03.2023 00:53

Элементы, не превышающие 15, заменить средним арифметическим всех элемента массива....

Zarinaoo

04.03.2023 00:53

Как найти значение переменной а, при выполнения алгоритма: а: =6 b: =2 b: =a/2*b a: =2*a+3*b...

анна10010

04.03.2023 00:53

Отметьте кодирования текста выберите один или несколько ответов: a. картинками b. знаковый c. числовой d. текстовый e. графический f. цифровой g. символьный h. алфавитный...

Vero23

25.10.2021 18:16

2.1 сколько информации можно записать в тетрадь на 12 листов? 1 строка = 31 байт, 1 лист = 40 строк. ответ: 2.2 сколько информации можно напечатать на листе а4? 1...

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

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