1. Информатика
  2. Найти сумму чисел четырехзначного

Найти сумму чисел четырехзначного числа(решить с циклом пост условия)!

arcadig01 arcadig01    3   04.06.2019 00:20    0

Ответы
Mashannjjj Mashannjjj  01.10.2020 18:59
Var a,s:integer;
begin
readln (a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln (s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
llovepet20 llovepet20  28.01.2021 19:33
Придумайте 5 вопросов по теме информатика/программирование, у каждого вопроса есть три ответа и один из них правильный....
малыш115 малыш115  28.01.2021 19:29
Определить систему счисления ,в которой записан результат 7*3=25....
Алёна0Чан Алёна0Чан  28.01.2021 19:29
В паинтне напишите скрипт Сейчас 3126 год.мой друг родился 8 лет назад ​...
kulakov2003 kulakov2003  22.02.2021 05:25
Написать программу к задаче на языке программирования Python. В магазине купили и ручек по 30 тенге и в карандашей по 15 тенге. Заплатили m тенге. Сколько получено сдачи...
Kocoeva Kocoeva  22.02.2021 05:45
Задача №112298. Реверс половин Реверс массива – это перестановка элементов в обратном порядке: меняются местами первый и последний элементы, второй и предпоследний и т.д....
Дамирка2288 Дамирка2288  14.09.2019 00:20
Выберите имена файлов удовлетворяющие шаблону a? b* 1)a1b11.11 2)ab.ttt 3)aacb.t 4)a1b.tx 5)a11bc.t 6)a1b1.t1...
anitayun0518 anitayun0518  14.09.2019 00:20
Дано натуральное число. выведите его последнюю цифру. с питонтютора, подалуйста!...
toroshinaalena toroshinaalena  14.09.2019 00:30
Рефират на тему процессоры .по информатике...
artemchik25 artemchik25  06.09.2019 18:20
C++ написать программу, используя два раза while, которая выдает следующее: * ** *** я написал, но не работает. может найдете ошибку в моей? (ошибка не в синтаксисе, а...
vitashe135 vitashe135  06.09.2019 18:20
Найти в байтах вес сообщения из 32 символов, написать с 16 символов алфавита...

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