Прога на Паскале. Надо ввести натуральное число и в нем вычислить сумму четных цифр (с конца этого числа) до первой не четной цифры. Пример: ввод числа 1784 Вывод: 8+4=12

var  n,k,sum:integer; s,s1:string; begin write('n = '); readln(n); s:=''; sum:=0; while (n>0)and(n mod 2 = 0) do  begin  k:=n mod 10;  str(k,s1);  s:=s1+'+'+s;  sum:=sum+k;  n:=n div 10;  end; if s<>'' then s[length(s)]:='='; writeln(s,sum); end. Пример: n = 1784 8+4=12

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var   a, s: integer; begin   write('Введите число : ');   readln(a);   while a <> 0 do   begin     if a mod 2 = 0 then begin       s := s + a mod 10;       write(a mod 10);           a := a div 10;       if a mod 2 = 0 then write('+') else break     end;     end;   write('=');   writeln(s); end. Тестовое решение: Введите число : 1784 4+8=12