Есть две переменные а и б
Изначально а=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
вот 3 варианта решения задачи:
1. с временной целочисленной переменной вместо булеан.
var
a, f : integer;
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then f := 1;
a := a div 10;
end;
if f = 0 then writeln('ДА') else writeln('НЕТ');
end.
2. с строчной переменной которой присваивается текст ответа.
var
a : integer;
f : string := 'ДА';
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then f := 'НЕТ';
a := a div 10;
end;
writeln(f);
end.
3. без дополнительных переменных но с оператором break.
var
a : integer;
begin
write('введите число: ');
readln(a);
while a div 10 > 0 do begin
if (a mod 10) >= ((a mod 100) div 10) then begin
writeln('НЕТ');
break;
end;
a := a div 10;
if a < 10 then writeln('ДА');
end;
end.