Есть две переменные а и б
Изначально а=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
Program n_1;
var a:array [1..1000] of integer; i, buf:integer;
begin
for i:=1 to 1000 do read(a[i]); //Вводим массив
for i:=1 to 500 do begin //Переворачиваем массив
buf:=a[i];
a[i]:=a[1001-i];
a[1001-i]:=buf;
end;
for i:=1 to 1000 do write(a[i], ' '); //Выводим перевернутый массив
writeln(); //Переносим строку
for i:=1 to 1000 do begin //Выводим нужные нам числа
buf:=a[i];
while buf>9 do buf:=buf div 10; //buf равно старшему разряду
if buf>a[i] mod 10 then write(a[i], ' '); //Если старший разряд больше младшего, то выводим
end;
end.
Часть, выделенная полужирным, эквивалентна
for i:=1000 downto 1 do read(a[i]); //Заполняем массив с конца и тем самым он сразу становится перевернутым.
