Делимся знаниями и помогаем учиться

Нужно ввести пятизначное число Найти в нем сумму четных и сумму нечетных

Нужно ввести пятизначное число Найти в нем сумму четных и сумму нечетных

  • Скорее всего вс можно было проще сделать, но я только так понимаю, так что вот. Программа проверена и работает.
    program z;
    var a,b,c,d,e,x,g,h:integer;
    begin
    write(Введите пятизначное число);
    read(x);
    a:= x mod 10;
    b:= x mod 100;
    b:= b div 10;
    c:= x mod 1000;
    c:= c div 100;
    d:= x mod 10000;
    d:= d div 1000;
    e:= x mod 100000;
    e:= e div 10000;
    if a mod 2=0 then h:=a
    else g:=a;
    if b mod 2=0 then h:=h+b
    else g:=g+b;
    if c mod 2=0 then h:=h+c
    else g:=g+c;
    if d mod 2=0 then h:=h+d
    else g:=g+d;
    if e mod 2=0 then h:=h+e
    else g:=g+e;
    writeln( Сумма нечтных цифр равна , g);
    write( Сумма чтных цифр равна , h);
    end.
  • Число:54343
    5+3+3=11
    4+4=8