Дано натуральное число N. Найти сумму четных цифр в данном числе. - Turbo Pascal

Формулировка задачи:

Дано натуральное число N. Найти сумму четных цифр в данном числе. Если можно, то побыстрее пожалуйста, спасибо заранее

Решение задачи: «Дано натуральное число N. Найти сумму четных цифр в данном числе.»

Листинг программы

uses crt;
var n,s:longint;
begin
clrscr;
write('n=');
readln(n);
s:=0;
while n>0 do
 begin
  if (n mod 10)mod 2=0 then s:=s+n mod 10;
  n:=n div 10;
 end;
write('Сумма четных цифр=',s);
readln
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для работы с потоками ввода-вывода в Turbo Pascal.
Затем объявляются две переменные: n и s. Переменная n типа longint, а переменная s также типа longint. Эти переменные будут использоваться для хранения числа N и суммы четных цифр соответственно.
Далее происходит очистка экрана с помощью функции clrscr из библиотеки crt.
После этого происходит чтение числа N с помощью функции readln. Чтение происходит в строку, поэтому используется функция readln с пустой строкой после ключевого слова readln.
Затем переменная s инициализируется значением 0.
Далее идет цикл while, который выполняется до тех пор, пока значение переменной n больше 0.
Внутри цикла проверяется условие: если остаток от деления числа n на 10 равен 0, то это означает, что последняя цифра числа является четной. В этом случае к переменной s прибавляется число n, деленное на 10.
После проверки условия число n делится на 10 с помощью оператора деления div.
Цикл while повторяется, пока значение переменной n больше 0.
По завершении цикла значение переменной s выводится на экран с помощью функции write.
Затем происходит чтение следующего ввода с помощью функции readln.
Цикл while повторяется, пока значение переменной n больше 0.
По завершении цикла значение переменной s выводится на экран с помощью функции write.
Затем происходит чтение следующего ввода с помощью функции readln.
Цикл while повторяется, пока значение переменной n больше 0.
По завершении цикла значение переменной s выводится на экран с помощью функции write.
Затем происходит чтение следующего ввода с помощью функции readln.
Цикл while повторяется, пока значение переменной n больше 0.
По завершении цикла значение переменной s выводится на экран с помощью функции write.
В конце кода происходит выход из программы с помощью ключевого слова readln.