Question

Дано решение задачи с циклом «Пока». Решить данную задачу применяя цикл «До». Вводится натуральное число. Найти сумму четных цифр, входящих в его состав. var n: integer; sum: integer; begin readln(n); sum := 0; while n > 0 do begin if n mod 10 mod 2 = 0 then sum := sum + n mod 10; n := n div 10; end; writeln(sum); end.

Answer 1

Var n: integer;
sum: integer;
begin
readln(n);
sum := 0;
repeat
if n mod 10 mod 2 = 0 then
sum := sum + n mod 10;
n := n div 10;
until n = 0;
writeln(sum);
end.

Answer 2

Для переписывания решения задачи с циклом "Пока" на цикл "До", можно использовать следующий код:

pascalCopy code
var
  n, digit, sum: integer;

begin
  readln(n);
  sum := 0;

  repeat
    digit := n mod 10;
    if digit mod 2 = 0 then
      sum := sum + digit;
    n := n div 10;
  until n = 0;

  writeln(sum);
end.

Здесь мы заменили цикл "Пока" на цикл "До", используя конструкцию repeat ... until, которая выполняется до тех пор, пока указанное условие (n = 0 в данном случае) не станет истинным. Внутри цикла мы также вычисляем последнюю цифру числа n с помощью n mod 10 и проверяем, является ли она четной (digit mod 2 = 0). Если да, то прибавляем ее к переменной sum. Затем делим число n на 10, чтобы перейти к следующей цифре в числе. Цикл повторяется до тех пор, пока все цифры числа не будут обработаны.