Прога на Паскале. Надо ввести натуральное число и в нем вычислить

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

Задать свой вопрос
2 ответа
Var
 n,k,sum:integer; s,s1:string;
begin
write('n = '); readln(n);
s:='';
sum:=0;
while (ngt;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 slt;gt;'' 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 lt;gt; 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


, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт