Войти с помощью:

Вконтакте

Помогите пожалуйста решить задачу на Паскале!

|
  • Var n,m,k,z:longint;
    Begin
    Readln(n);
    m:=0;
    k:=1;
    While n<>0 do
    begin
    z:=n mod 10;
    if z mod 2=0 then
    begin
    m:=m+z*k;
    k:=k*10;
    end;
    n:=n div 10;
    end;
    Writeln(m);
    End.

    |
    • спасибо большое! буду знать.

      |