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

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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

sasha228111228

29.04.2021 23:36

Вкакой системе счисления справедливо равенство 123 + 321 = 1110?...

zhuniorneimar486

29.04.2021 23:36

Перечислите достоинства и недостатки хранения информации в оперативной и долговременной памяти....

leylamagomedov2

27.11.2022 20:53

Для мультипликационного фильма видеоряд с частотой 60 кадров в cекунду и звуковая восьмиканальная дорожка записываются отдельно. Для хранения на сервере видео преобразуют...

yarroslawfd

09.01.2022 12:42

1. Что такое EV3?2. Технические характеристики, установка аккумуляторов,3. Включение и отключение EV3, индикаторов и кнопок, какие порты?...

khinmy

08.06.2023 19:45

Дано натурального число.выведите его последнюю цифру. написать программу....

anastasiastrel2

08.06.2023 19:45

Закодируйте тексты в кодировке windows. арифмометр, перфокарта, программа....

нигич1

15.08.2022 02:56

востановите рисунок по описанию установить 20,80 линия к 65,110 линия к 110,80 линия к 20,80 прямоугольник 20,20,110,10 прямоугольник 30,80,40,30, прямоугольник...

ПростоРадмир001

30.04.2020 23:43

Не могу скачать виндоус 7 на мак,проблема с черным экраном , сборки разные ставил и ориг тоже ,ничег не выходит,диск форматиоовал правильно ,скачивал с флешки мне,везде...

dgafar27oy9omz

21.01.2020 18:37

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

BouhjrMans228

21.01.2020 18:37

Паскаль авс моделирование исполнителя «счётчик». дана последовательность целых чисел. требуется определить, сколько в ней четных и нечетных чисел...

Ответ:

seidov05

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

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

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