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

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

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

↓

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

antongrom68

25.04.2022 11:56

Переведите из десятичной системы счисления 135032325 в двоичную....

vladchesak

25.04.2022 11:56

Написать программу на c с вводом и выводом массива....

corbaov2018

24.07.2020 18:11

Составить программу выводящую числовой от 1 до n (n вводится с клавиатуры )...

yalunaluna

11.03.2022 18:11

Всех ! если вам не сложно, то хотел бы попросить . необходимо решить на яп pascal с использованием подпрограмм, если можно, то с комментариями переменных и некоторых функций. системы...

Zendydla

01.12.2020 02:24

1+3+3^2++3^7 написать программу в pascal...

мирэлюзий

09.12.2020 11:22

Напишите программу на языке паскаля, определяющую периметр прямоугольника....

kamila0277

09.06.2023 23:52

Какая система счисления верна для 7*7=61...

aruzhanomash

22.08.2022 05:02

Для хранения растрового изображения размером 256х256 пикселей отвели 3 килобайта памяти. каково максимально возможное число цветов в палитре, используемой для создания изображения?...

Петрович05

13.12.2022 20:46

Отступ слева при абзацном форматировании отсчитывается...

Roblox2017

13.12.2022 20:46

Отступ первой строки осуществляется...

Ответ:

Вика12342001

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 Оформи подписку