Найти сумму чисел четырехзначного числа(решить с циклом пост условия)СРОЧНО!!!
5-9 класс
|
var a,s:integer;
begin
readln (a);
repeat
s:=s+a mod 10;
a:=a div 10;
until a=0;
writeln (s);
end.
Другие вопросы из категории
1 11001+ 1011
2 1111+ 111
3 1000 - 11
4 101000 - 10101
5 10110 - 1110
Внимательно рассмотрите блок-схему. Сформулируйте в словесной форме признак, о котором в ней идёт речь.
символов.найдите количество страниц в реферате
количество съеденных комаров превысит 100 , если в первый день было съедено 12 комаров. Составьте программ
Читайте также
(Тема:Программирование ветвлящихся и цепленных алгоритмов)
2.Дано двухзначное число,найти сумму и произведение его чисел.
(2-ая задача решается с div и mod)
(Тема:Программирование ветвлящихся и цепленных алгоритмов )
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
2) составить программу нахождения чисел от 10 до 99 сумма квадратов которых кратна 13 (mod=0)
3) найти сумму всех целых нечетных чисел меньших 100
4) найти сумму чисел в диапазоне от A до B кратных четырём. Числа А и В вводятся с клавы.
5) Найти все натуральный делители натурального числа n
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 5. Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число – сумму чисел, кратных 5.