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

var n,k,sum:integer; s,s1:string;beginwrite('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 = 17848+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.Тестовое решение:Введите число : 17844+8=12