var a,b: integer; - говорит программе, что будут использовать целые числа в переменных
а и в
begin - начало программы
a: =0; - а = 0
b: =2364; - b = 2364;
while b> 0 do begin - пока b > 0 делать
f b mod 10< 5 then - если b разделить на 10 в остатке получится число меньше 5 тогда
a: =a+b mod 10; - а = а + b разделить на 10 и найти остаток (этот остаток и прибавить
b: =b div 10; - b = b разделить на 10 и найти целую часть, на эту целую часть
заменить старое значение переменной b
end; - конец цикла
writeln(a); - напечатать а
end. - конец программы
работает так:
1) a = 0
b = 2364
2364 > 0 да
2364 / 10 = 236 ост 4
4< 5 да тогда а = 0 + 4 = 4
b = 2364 / 10 = 236 - находим только целую часть числа
2) проверяем снова условие
236 > 0 да
236 / 10 = 23 ост 6
6 < 5 нет - ничего не делаем ( а осталось равно 4)
b = 236 / 10 = 23 - находим только целую часть числа
3) проверяем снова условие
23 > 0 да
23 / 10 = 2 ост 3
3< 5 да тогда а = 4 + 3 = 7
b = 23 / 10 = 2 - находим только целую часть числа
4) проверяем снова условие
2 > 0 да
2/10 = 0 ост 2
2< 5 да, тогда а = 7 + 2 = 9
b = 2 / 10 = 0 - находим только целую часть числа
5) проверяем снова условие
0 > 0 нет
закончили цикл
напечатать а = 9
конец алгоритма
алгоритм считает сумму цифр в числе в, которые меньше 5
есть две переменные а и бизначально а=0, б=2364
пока б будет больше 0 он будет выполнять следующие действия:
если остаток от б/10 меньше нуля тогда к а прибавляется этот остаток. б делим на 10 и повторяем
вывод а
сама вычисляет сумму цифр в числе которые меньше 5.дано б = 2364.
смотрит остаток от 2364 mod 10 = 4
4 меньше пяти соответственно в а=4
далее 2364/10=236
теперь 236 mod 10 = 6
6 больше пяти поэтому ниче не делаем
236 div 10 = 23
теперь 23 mod 10 = 3
3 меньше пяти соответственно а=а+3 = 4+3 = 7
23 див 10 = 2
теперь 2 mod 10 = 2
2 меньше 5 соответственно а=а+3 = 7+2 = 9
2 див 10 = 0
так как б=0 программа выходит из цикла и выводит а, т.е. число 9
Поделитесь своими знаниями, ответьте на вопрос:
Опишите основные этапы создания цифрового видеофайла